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.