program bez_procedury;

var
x:string;

begin
write('Podaj imie: ');
readln(x);

write('Podaj imie: ');
readln(x);

write('Podaj imie: ');
readln(x);

write('Ostatnie imie to: ',x);

repeat until keypressed;

end.

--------------------------------------------

program z_procedura;

var
x:string;
i:integer;

{procedura poczatek}
procedure imie;
begin
  for i:=1 to 3 do
  begin
    write('Podaj imie: ');
    readln(x);
  end;
end;
{procedura koniec}

begin
  {wywolanie procedury}
  imie;
  write('Ostatnie imie to: ',x);
  
  repeat until keypressed;
end.