Составь алгоритм площади прямоугольника со сторонами а-5см б-6см

5*6=30 см2  нужно умножить  a и b,   и  получить искомую площадь.

Program b1; var y,x1,x2,x3: real; begin writeln('write x1,x2,x3 : '); readln(x1,x2,x3); if x1> 4 then writeln(sqrt(abs(sin(sqr(x1)-1)/cos(sqr(x1)-: 10: 20); if x1> =0 then if x1< =4 then writeln(-2*x1: 10: 20); if x1< 0 then writeln(exp(cos(x1)): 10: 20); if x2> 4 then writeln(sqrt(abs(sin(sqr(x2)-1)/cos(sqr(x2)-: 10: 20); if x2> =0 then if x2< =4 then writeln(-2*x2: 10: 20); if x2< 0 then writeln(exp(cos(x2)): 10: 20); if x3> 4 then writeln(sqrt(abs(sin(sqr(x3)-1)/cos(sqr(x3)-: 10: 20); if x3> =0 then if x1< =4 then writeln(-2*x3: 10: 20); if x3< 0 then writeln(exp(cos(x3)): 10: 20); readln(x1); end.

Const n=5; var   p: array[1..n,1..n] of real;   i,j: integer; begin   randomize;   for i: =1 to n do       for j: =1 to n do           p[i,j]: =random(1000);   for i: =1 to n do       for j: =1 to n do           if i< j then p[i,j]: =0           else if i> j then p[i,j]: =round(p[i,j]);   // далее с массивом можно работать. например, вывести. end.