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.