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

//Pascal

var

a : array[1..4] of integer;

_max, i : integer;

begin

readln(_max);

for i := 1 to 4 do

begin

readln(a[i]);

if (a[i] > _max) then

_max := a[i];

end;

writeln(_max);

end.

Справка обоснование 9ц9узащцзвщщащпщук8а8п8ущкща