Program zadacha;
Var i,max,a:Integer;
Begin
WriteLn('Ââåäèòå 5 ÷èñåë: ');
for i := 1 to 5 do
  begin
    Readln(a);
    if i=1 then max:=a
    else if a > max then  max := a;
  end;
  Writeln('MAX = ', max);
  Readln
end.