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

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