Информатика / PROGRAM1

program figura;
var x,y,elips,krug,line:real; answ:char;
label 1;
begin
1:
{ўў®¤ ЇҐаҐ¬Ґ­­ле}
writeln ('ўўҐ¤ЁвҐ x');
readln (x);
writeln ('ўўҐ¤ЁвҐ y');
readln (y);
{а ббзҐв §­ зҐ­Ё© ўла ¦Ґ­Ё©}
krug:=((x+5.8)*(x+5.8)+(y+6)*(y+6))-529;
elips:=(x-5.16)*(x-5.16)/625+(y+4)*(y+4)/1225-1;
line:=-27.85/29.38*(x-16.4)+y;
{Їа®ўҐаЄ  B}
if ((x>=0) and (y>=0) and (krug>=0) and (elips<=0) and (line>=0))
then
writeln ('в®зЄ  ', x:5:1,' ',y:5:1,' ЇаЁ­ ¤«Ґ¦Ёв B')
else
{Їа®ўҐаЄ  A}
if ((x<=0) and (y<=0) and (krug<=0) and (elips<=0) and (line>=0))
then
writeln ('в®зЄ  ',x:5:1, ' ',y:5:1,' ЇаЁ­ ¤«Ґ¦Ёв Ђ')
else
writeln ('в®зЄ  ­Ґ ЇаЁ­ ¤«Ґ¦Ёв ­Ё Ђ, ­Ё ‚');
writeln ('Їа®¤®«¦ вм? y/n');
readln (answ);
if answ=('y')
then
goto 1;
writeln('this program was coded by Busygin V. and Chunzhin V., AT-07-2, laboratry work 1, var. 90');
readln;
end.