var s: string;                  {deklareeritakse muutuja s} 
                                {stringina (t„hejadana)}

begin                           {programmi algus}

s:='p„kapikk';                  {stringi tpi muutujale} 
                                {omistatakse v„„rtus p„kapikk}

writeln('Tere hommikust ', s);  {kui v„lja kirjutatav tekst koosneb}
                                {mitmest osast, eraldatakse osad komadega.}
end.