Сделайте пжл , очень срочно надо

Question

Сделайте пжл , очень срочно надо

---

Answer 1

Var A: array[1..5] of integer;
i, max: integer;
begin
writeln('введите числа');
for i:=1 to 5 do readln(A[i]);
max:=A[1];
for i:=2 to 5 do
if A[i]>max then
max:=A[i];
writeln('максимальное число: ', max);
end.