var
 s: string;

begin
 s:='päkapikk';
 writeln(s);
 writeln('Tere hommikust ', s);
end.

Sama programmike kommentaaridega on siin.