Uses crt;

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;