1) Задано натуральное число N. Составить программку для вычисления факториала

1)

Var
   F:real;
   N:integer;
Begin
Write('N = ');
ReadLn(N);
F:=1;
For N:= 1 to N do
    F:=F*N;
WriteLn(N,'! = ',F);
End.



2)

Const
   M = 3;
   N = 4;
Var
   A:array[1..M,1..N] of integer;
   i,j,k:integer;
Begin
k:=0;
WriteLn('Введите массив(',M,',',N,'):');
For i:= 1 to M do
    For j:= 1 to N do
        Begin
        Read(A[i,j]);
        if (A[i,j] lt; 0)and(A[i,j] mod 2 = 0) then k:=k+1
        End;
WriteLn('k = ',k);
End.