Напишите программу для x=(a+b)/(a*b) x-вещественное; a и b-вводить ( в паскале )

Uses Crt;
  const n=5; m=7;
  type Mas = array [1..n, 1..m] of integer;
  var i, j, j1, j2: integer;
      Sumj1, Sumj2: real;
      A: Mas;
begin
 ClrScr;
 Randomize;
 SumJ1:=0; SumJ2:=0;
 for i:=1 to n do
    for j:=1 to m do
    A[i,j]:=random (10);
 WriteLn (' Massiv A: ');
 for i:=1 to n do
   begin
      for j:=1 to m do
      Write (A[i,j]:4);
      WriteLn;
   end; WriteLn;
 repeat
   Write (' Stolbez #1 = ');    ReadLn(j1);
 until (j1>=1) and (j1<=m);
 repeat
   Write (' Stolbez #2 = '); ReadLn(j2);
 until (j2>=1) and (j2<=m) and (j1<>j2);
 for i:= 1 to n do
    SumJ1 := SumJ1+A[i,j1];
 for i:= 1 to n do
   SumJ2:=SumJ2+A[i,j2];
 SumJ1:=SumJ1/n; SumJ2:=SumJ2/n; 
WriteLn;
WriteLn (' Srednee stolbza ', j1, ' = ', SumJ1:4:2);
WriteLn (' Srednee stolbza ', j2, ' = ', SumJ2:4:2); 
ReadLn;
end.

p=44

Объяснение:

Что тут можно не понимать? Как я вижу тут все расписано по действиям

( ͡° ͜ʖ ͡°)

1) m присваивается значение 12

2) а присваивается значение через выражение те m/2=12/2=6

3)m присваивается значение через выражение те a+4=6+4=10

4)m присваивается значение через выражение те m/3=10/3=3

5)p присваивается значение 6

6)a присваивается значение через выражение p-m+a*3 те 6-3+6*3=6-3+18=21

7)n присваивается значение через выражение (70-a)/4+p те (70-21)

/4+6=12/4+6=3+6=9

8)p присваивается значение через выражение (a+m)/n+a*2 те (21+3)/9+21*2=24/9+42=2+42=44

Вроде всё так. (¬‿¬)