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

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

N:=N*I;FF:=abs(N) END;

BEGIN WRITE('BBEWD PAZM.');writeln(ff(12));
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 A[I,J]:=FF(7); end;
IF I>7 THEN  begin 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.