Question

помогите пожалуйста

Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.​

Answer 1

var

a,i,_max: integer;

begin

readln(_max);

for i := 1 to 4 do

begin

readln(a);

if (a > _max) then

_max := a;

end;

writeln(_max);

end.