Приветик друзья с кодом, а то никак не пойму как его записать на паскаль.
— Составить программу, которая формирует массив P из 24 элементов, в котором элементы с 1 по 10 являются кубами своих порядковых номеров, элементы с 10 по 24 равны периметрам квадратов со сторонами равными соответственно 10, 11,12, …, 24. Массив вывести в строку.

Const  amax=20;
var  a: array[1..amax,1..amax] of integer; 
i,j,k,n,m: byte;
begin 
write('Введите размеры массива(матрицы (<20)):'); 
 readln(n,m); 
 writeln('Массив(матрица):');
  for i:=1 to n do  begin   
 for j:=1 to m do    begin      a[i,j]:=random(99)+1;   
  write(a[i,j]:4);   
 end;   
 writeln; 
 end; 
 writeln('Кол-во четных элементов по колонкам:'); 
 for j:=1 to m do 
 begin   
 k:=0;   
 for i:=1 to n do   
  if odd(a[i,j])=false then inc(k);   
writeln('В ',j,' столбце ',k); 
 end; 
 writeln('Конец программы!');
end.

 

  uses   crt;   var   a: array [1..20, 1..20] of real;   i, j, k, n, s: integer;   begin   clrscr;   write('Введите размер матрицы: ');   read(n);   for i := 1 to n do     for j := 1 to n do     begin       write('A[', i, ',', j, ']= ');       readln(a[i, j]);     end;   WRITELN;   WRITELN;   writeln('Исходная матрица ', n, 'x', n, ': ');   for i := 1 to n do   begin     for j := 1 to n do       WRITE(a[i, j]:2:0, ' ');     WRITELN;   end;   k := 0;   for i := 1 to n do   begin     for j := 1 to n do     begin       if a[i, j] = 0 then       begin         k := k + 1;         s := s + 1;       end;     end;     if k = n then writeln(i, ' строка состоит из нулей! ');     k := 0;   end;   if s = 0 then writeln('В матрице нет нулевых строк'); end.