Ну,например,Есенин.
program Chetverostishie;
begin
writeln('И ничто души не потревожит,');
writeln('И ничто ее не бросит в дрожь, —');
writeln('Кто любил, уж тот любить не может,');
writeln('Кто сгорел, того не подожжешь.');
writeln('С.А.Есенин');
end.<span>
</span>
Var
i: Integer;
Begin
For i:=10 to 20 do writeln(i*i);
ReadLn;
End.
Это ослёнок. У него длинные уши. Он (она) серого цвета с белыми пятнами. Он (она) нюхает цветочки.
Если не правильно то уж извини.