program tochka1; uses crt; var a,d,x,y:real; begin clrscr; writeln ('Programa opredelaet prinadleznost to4ki dannoi figyri'); writeln (''); begin writeln ('VVedite a'); {$I-} readln (a); {$I+} if IOresult=0 then begin if x<=a/2 then begin writeln ('Tochka vhodit v '); if x>=-a/2 then begin writeln ('Tochka vhodit v'); if y<=a/2 then begin writeln ('Tochka vhodit v'); if y>=-a/2 then begin writeln ('Tochka vhodit v'); begin writeln ('VVedite d'); {$I-} readln (d); {$I+} if IOresult=0 then begin if x>=d/2 then begin writeln ('Tochka vhodit v'); if x<=-d/2 then begin writeln ('Tochka vhodit v'); if y>=d/2 then begin writeln ('Tochka vhodit v'); if y<=-d/2 then begin writeln ('Tochka vhodit v'); end else begin writeln ('Tochka ne vhodit v'); end else writeln ('Tochka ne vhodit v'); end else writeln ('Tochka ne vhodit v'); end else writeln ('Tochka ne vhodit v'); end else writeln ('Oshibka! vvedite cifry'); end; end else writeln ('Tochka ne vhodit v'); end else writeln ('Tochka ne vhodit v'); end else writeln ('Tochka ne vhodit v'); end else writeln ('Tochka ne vhodit v'); end; end else writeln ('Oshibka! Vvedite cifry'); end; readln; end.