СРОЧНО НУЖНО В МАССИВЕ
Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.

const n =5;var  a:array[1..n] of integer;  i,max:integer;begin  writeln('Введите 1 элемент массива');  readln(a[1]); max:=a[1];  for i:=2 to n do begin    writeln('Введите ', i,' элемент массива');    readln(a[i]);    if a[i]>max then max := a[i];  end;  writeln('Максимальный элемент массива равен ',max);end. Тестовое решение:Введите 1 элемент массива21Введите 2 элемент массива56Введите 3 элемент массива12Введите 4 элемент массива24Введите 5 элемент массива15Максимальный элемент массива равен 56