Решить задачу по информатике вывести на экран "пусть всегда будет солнце"(1 раз), "пусть всегда будет мама" (5 раз)цикл и "пусть всегда буду я"(1 раз)команда после цикла, программу и блок схему

Var
i:Integer;
Begin
 Writeln(Пусть всегда будет солнце);
 for i:=1 to 5 do
   Writeln(Пусть всегда будет мама);
Writeln(Пусть всегда буду я);
end.