Program F144;
 Uses Crt;
 Var
        v:array[1..5] of integer;
        i1,i2,i3,i4,i5:integer;
        i:integer;

Procedure AdatBekeres;
Begin
      for i:=1 to 5 do begin
          Writeln('Mi az i szam?',v[i]);
           Readln(v[i]);
        End;





end;


Begin
Clrscr;

Writeln('Kerek 5 szamot, felcserelem');
AdatBekeres;
Writeln(v[i]);
Readln;
End.