Program asd;
var a:array[1..5] of integer;
max,min,Imax,Imin,i:integer;
begin
a[1]:=max;
a[1]:=min;
for i:=1 to 5 do
begin
if a[i]>max then 
max:=a[i];
if a[i]<min then
min:=a[i];
end;
writeln('max=',max);
writeln('min=',min);
readln;
end.