Написать программу вычисления и вывода на экран значения функции F

Язык Pascal

Программа:

Pascal:

var

 A, B, F: real;

begin

 write('A = ');  readln(A);

 write('B = ');  readln(B);

 if (A < 0) and (B < 0) then

   F := power(sin(1.121 * A * B), 4)

 else if (A > 0) and (B > 0) then

   F := cos(1 / A / B)

 else

   F := 1.121 * A * B;

 writeln('F = ', F)

end.