это урок информатики и тема на програмирование Паскаль
Нужно сделать 6 вариант

program 6var;

uses math;

var

a, b, R, z: real;

begin

writeln('Vvedite a - ');

readln(a);

writeln('Vvedite b - ');

readln(b);

writeln('Vvedite R - ');

readln(R);

z:=(2*R*sin(a/2))/(abs(cos(b/2)));

writeln('Otvet - ', z);

readln();

end

### PascalABC.NET ###

begin

 var (R, a, b) := ReadInteger3('Enter R, a, b: ');

 Println( (4*R*Sin(a/2))/abs(cos(b/2)) );

end.

Объяснение: