Задача 3 урок 15

Задача 3 урок 15

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.

Var i, max : integer ;
    A : array [1..7] of integer;
Begin
    for i:=low(a) to high(a) do
        readln(a[i]);

    Max := A[1];
    For i := 2 to 7 do
        if A[i]>Max then Max := A[i];
     Writeln(Max) ;
     Readln ;
End.