Написать программу в pascal . дана целочисленная матрица порядка n на m . cформировать одномерный массив из элементов кратных на 4 последних p строках . p - число введенное на клавиатуре .

// pascalabc.net 3.1, сборка 1218 от 12.04.2016 begin   var m,n: integer;   write('количество строк и столбцов матрицы: ');   read(n,m);   var a: =matrixrandom(n,m,10,99);   for var i: =0 to n-1 do begin       for var j: =0 to m-1 do print(a[i,j]);       writeln       end;   var p: =readinteger('введите число р: ');   var b: array of integer;   setlength(b,4*m);   var k: =0;   for var i: =n-p to n-1 do       for var j: =0 to m-1 do           if a[i,j] mod 4=0 then begin               b[k]: =a[i,j]; inc(k)               end;   setlength(b,k);   b.print end. тестовое решение: количество строк и столбцов матрицы: 6 8 67 70 68 72 38 72 96 38 49 75 24 55 72 63 21 40 72 12 60 22 74 30 13 45 22 45 39 24 35 97 64 31 76 62 15 94 56 28 31 13 41 67 75 37 67 13 25 20 введите число р: 4 72 12 60 24 64 76 56 28 20

Катя - 2 июня  соня - 20 марта тамара - 17 мая галя - 2 марта