var a,b,c,y,x,min,max:integer;

begin

writeln('Введите первое число');

readln(a);

writeln('Введите второе число');

readln(b);

writeln('Введите третье число');

readln(c);

writeln('Введите четвертое число');

readln(x);

writeln('Введите пятое число');

readln(y);

if a > b then max :=a else max :=b;

if max < c then max:=c;

if max < y then max:=y;

if max < x then max:=x;

writeln('Максимальное число = ',max);

end.