написать программу на ПАСКАЛЕ: Дана матрица А, имеющая N строк и N столбцов. Сформируйте два одномерных массива. В один перешлите четные, а в другой -нечетные элементы матрицы. Выведите на экран все массивы.
ИЛИ 
написать программу на ПАСКАЛЕ: Вычислить произведение n! до значения 1255534676756. Пожалуйста решите какую сможете.

var  i,f:int64;begin  f:=1;  i:=1;  while f<1255534676756 do    begin    f:=f*i;    writeln(i:2,' ',f);    i:=i+1    endend.Результат работы программы: 1 1 2 2 3 6 4 24 5 120 6 720 7 5040 8 40320 9 36288010 362880011 3991680012 47900160013 622702080014 8717829120015 1307674368000