PROGRAM Pierwszy; USES Crt; VAR Imie : String[20]; Lata : Byte; Zn : Char; BEGIN Clrscr; Write('Czesc! Jak masz na imie : '); ReadLn(Imie); Write('A ile masz lat : '); Read(Lata); Writeln(Lata,' lat to duzo, ',Imie, '.'); Write('No to czesc!'); Zn:=ReadKey; END.