Type tmas=array[1..100,1..100] of word;
tvect=array[1..100] of word;
Var a:tmas;
v:tvect;
n,m,k:byte;
i,j:byte;
Procedure FORM(var x:tmas; {матрица}
n,m:byte; {количество строк и столбцов}
Var r:tvect; {результат - вектор}
var k:byte); {длина полученного вектора}
Var i,j,z,s:byte;
f:boolean;
Function pros(b:word):boolean;
{функция проверки простого числа}
Var i:word;