PROGRAM Imie;
VAR
wiek:integer
imie:string
BEGIN
Write('Jak masz na imię?Napisz i naciśnij ENTER');
ReadLn(imie);
Write('Hej,', imie,' ile masz lat?');
ReadLn(wiek);
WriteLn(wiek,' lat to piękny wiek');
ReadLn
END.
PROGRAM Imie1;
VAR
wiek:integer;
imie:string;
BEGIN
Write('Jak masz na imię?Napisz i naciśnij ENTER');
ReadLn(imie);
Write('Hej,', imie,' ile masz lat?');
ReadLn(wiek);
WriteLn(wiek,' lat to piękny wiek');
ReadLn;
END.
Nazwa programu nie może mieć takiej nazwy jak zmienna.