написать программу на языке Паскаль для решения следующей задачи:
запросить через цикл ввод 14 чисел и среди них найти наибольшее (вывести его на экран)

vara:array[1..14] of integer;max,i:integer;beginwrite('Введите элементы массива - ');for i:=1 to 14 do read(a[i]);max:=a[1];for i:=1 to 14 do begin  if a[i]>max then max:=a[i]; end;writeln('Наибольшое значение в массиве имеет число - ',max);end.