Verified answer

Ну вроде так, если я правильно понимаю, надо ввести 5 чисел и найти максимальное?

program z4;

var max,n,i:integer;

begin

readln(n);

max:=n;

for i:=1 to 4 do

   begin

       readln(n);

       if n>max then max:=n;

   end;

writeln(max);  //если тебе нужен вывод

end.