Написать программу нахождения максимального из пяти значений. паскаль

Question

Информатика: Написать программу нахождения максимального из пяти значений. паскаль

СофариПарк3 · Answer

var i,a,max:integer;beginmax:=0;for i:=1 to 5 do beginread(a);if (a max) or (max=0) then max:=a;end;writeln;write(max);end....