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
		writeln ('Tochka vhodit v ');
			begin
			if x>=-a/2 then
			writeln ('Tochka vhodit v');
				begin
				if y<=a/2 then
				writeln ('Tochka vhodit v');
					begin
					if y>=-a/2 then
					writeln ('Tochka vhodit v');
						begin
						writeln ('VVedite d');
						{$I-}
						readln (d);
						{$I+}
						if IOresult=0 then
						begin
						if x>=d/2 then
						writeln ('Tochka vhodit v');
							begin
							if x<=-d/2 then
							writeln ('Tochka vhodit v');
								begin
								if y>=d/2 then
								writeln ('Tochka vhodit v');
									begin
									if y<=-d/2 then
									writeln ('Tochka vhodit v');
									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
						else
						writeln ('Oshibka! vvedite cifry');
						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
	else
	writeln ('Oshibka! Vvedite cifry');
	end;
readln;
end.