Program P76;
 { Lungimea arcului de cerc şi aria sectorului respectiv }
label 1, 2;
const Pi=3.141592654;
type grade=0..360;
var alfa : grade;
    raza, lungimea, aria : real;
begin
 write('raza='); readln(raza);
 if raza<0 then goto 1;
 write('alfa='); readln(alfa);
 lungimea:=Pi*raza*alfa/180;
 writeln('lungimea=', lungimea);
 aria:=Pi*sqr(raza)*alfa/360;
 writeln('aria=', aria);
 goto 2;
 1:writeln('Eroare: raza<0');
 2:readln;
end.