По заданному радиусу и углу найти S сектора и дугу. программа Паскаль

Question

По заданному радиусу и углу найти S сектора и дугу. программа Паскаль

Answer 1

Угол задаётся в радианах

Vara,R:real;
Begin
Write('a = ');Read(a);
Write('R = ');ReadLn(R);
WriteLn('S = ',Pi*R*R*a/360);
Write('L = ',Pi*R*a/180);
End.