var x,y,d:real; i:integer; label 1,2,3; begin write('x='); read(x); write('y='); read(y); if x>0 then goto 1 else goto 2; 1: for i:=1 to 5 do begin d:=d+y+cos(x); end; goto 3; 2:d:=1; for i:=2 to 10 do begin d:=d*(y-x); end; 3: writeln(d:2:3); end.