program pole;
uses crt;
var
 b: array [1..5] of integer;
 i,max,max1,min: integer;
begin
clrscr;
begin
 writeln ('zadej 5 cisel: ');
 for i:=1 to 5 do readln (b[i]);  {zapis do pole}
 max:=b[1];
 min:=b[1];
 writeln ('===============================');
 for i:=1 to 5 do writeln (b[i]);
 for i:=2 to 5 do if (max1<b[i]) then max1:=b[i];
 for i:=2 to 5 do if (min>b[i]) then min:=b[i];
 writeln('nejvetsi je ',max1);
 writeln('nejmensi je ',min);
 end;
readln;
end.