Ввести пять чисел и найти наибольшее из них. 4 15 9 56 4 ... 1. составьте блок - схему алгоритма

var a:array[1 ... 5,1 ... 5]of integer; / / раздел для описания переменных;

i, n, max:integer; / / переменные;

begin / / условный оператор;

readln (n); / / оператор считающий вводимую переменную и переносит курсор на следующую строку;

for i:=1 to n do / / цикл от 1 до н;

readln (a[i]);

max:=a[1];

for i:=1 to n do

if a[i]>max then max:=a[i]; / / выбираем от минимального до максимального;

writeln (max); / / вывод;

end.