program massivs;
   uses CRT;
var
  a:integer;
    ez:array [1..5] of string;



begin
  for a:=1 to 5 do
 begin
    writeln('Ievadi ',a,' ezera nosaukumu');
   readln(ez[a]);
 end;
  writeln;
  Clrscr;
 for a:=1 to 5 do
 begin
     writeln;
     gotoxy(40,3*a+2);
   writeln(a,' ezera nosaukums - ',ez[a]);
   end;
 readln;
end.