program kirjutaja;  {see rida ei tee midagi, kuid vana hea tava kohaselt}
                   {lisatakse ta, et saaks aimu, mis programmiga on tegemist.}
var 
   s: string;                   
begin                           
 s:='p„kapikk';                  
 writeln(s);
 writeln('Tere hommikust ', s);  
end.