Вычислить объем и площадь поверхности прямоугольного параллелепипеда. Записать на алгоритмическом языке и в словесно-формульном виде э

And (энд) - И
end (энд) - конец
nil (нил) - нуль
set (сет) - множество
array (эрей) - массив
file (файл) - файл
not (нот) - не
then (зен) - то
begin (бегин) - начало
for (фo) - для
of (оф) - из
to (ту) - увеличивая до
case (кейс) - вариант
while (вайл) - пока
downto (даунту)- уменьшая до
record (рикод) - запись
with (вис) - с
function (фанкшн)- функция
or (ор) - или
type (тайп) - тип
const (конст) - константа
go to (гоу ту)- переход на
packed (пэкт) - упаковать
until (антил) - до
div (див) - разделить
if (иф) - если
procedure() - процедура
var (вар) - переменная
do (ду) - выполнить
in (ин) - в
program (програм) - программа
else (элс) - иначе
mod (мод) - модуль
repeat (рипит) - повторять

program max_elementarray ;

var i, max : integer ;

    a : array [1..10] of integer;

begin

    for i : = 1 to 10 do

          begin

              readln(a[i]);

          end;

    max : = a[1];

    for i : = 2 to 10 do

          if a[i]> max then max : = a[i];

    writeln('max element of array = ',max) ;

    readln ;

end.