program kirjutamine;
uses crt;             {see rida annab väimaluse kasutada paarikmmet }
                      {ekraanikujunduseks vajalikku protseduuri,} 
                      {n„iteks clrscr ekraani thjendamiseks.}


begin
 write('Tere ');         {write j„tab kursori samale reale}
 writeln('hommikust!');  {writeln viib j„rgmisele reale. ln=line=rida}

 readln;                 {arvuti ootab Enter-klahvile vajutust}
 clrscr;                 {moodulist crt p„rit protseduur, mis }
                         {thjendab ekraani ning viib kursori les nurka.}
 write('Thjus');
 readln;
 writeln('Nd alustasime thja ekraaniga');
end.