01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / SERFUN

PROGRAM P;
TYPE MATR=ARRAY[1..25,1..35] OF INTEGER;
VAR A:MATR;M,N,I,J,E:INTEGER;
FUNCTION FF( F:INTEGER):INTEGER;
VAR I,N:INTEGER;
BEGIN
N:=1;FOR I:=1 TO F DO
BEGIN
N:=N*I;FF:=N END;
END;
BEGIN WRITE('BBEWD PAZM.');
READLN(M,N);
FOR I:=1 TO M DO BEGIN
FOR J:=1 TO N DO BEGIN
IF I<7 THEN A[I,J]:=FF(12);
IF I=1 THEN  begin A[I,J]:=FF(7);writeln(a[i,j]) end;

IF I>7 THEN READLN(E);A[I,J]:=FF(E);
END;END;
FOR  I:=1 TO M DO BEGIN
FOR J:=1 TO N DO WRITE(A[I,J],' ');WRITELN;END;READLN;REAdln;
END.