Составте программу, которая формирует массив из 5 целых чисел,элементы массива вводятся вручную с клавиатуры. Найдите максимальный элемент в массиве. ответ вывести в формате "Мах=".

//Pascalvar  A: array[1..5] of integer;  i: byte;  MAX: integer;beginwriteln('Заполнение массива.');for i := 1 to 5 dobegin  write('A[',i,'] = '); readln(A[i]);end;MAX := A[1];for i := 1 to 5 do  begin    if A[i] > MAX then MAX := A[i];     write(A[i]:4);  end;writeln;writeln('Максимальный элемент в массиве = ', MAX);  readln;end.