var
r,l:integer;
begin
write('Радиус: '); readln(r);
write('Угол: '); readln(l);
writeln('Площадь: ',pi*sqr(r):4:2);
writeln('Хорда: ',2*r*sin(l*pi/360):4:2);
end.
var
r,l:integer;
begin
write('Радиус: '); readln(r);
write('Угол: '); readln(l);
writeln('Площадь: ',pi*sqr(r):4:2);
writeln('Хорда: ',2*r*sin(l*pi/360):4:2);
end.