Program P1;
{ok.ru/anton.md2
vk.Com/AntonMD}
Uses crt;
Var A:Array[1..4] of integer;
    i,m:integer;
    
Procedure Max(T:array[1..4] of integer; var x:integer);
Begin
x:=T[1];
For i:=1 to 4 do
 If T[i]>x then
   X:=T[i];
end;

Begin
For i:=1 to 4 do
 Begin
  WriteLn('Input ',i,' value ');
  ReadLn(A[i]);
 end;
 
Max(A,m);
Writeln('MAx value is :',m);

ReadKey;
end.