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

Question

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

Answer 1

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