Входит ли точка в окружность

[poskalforever]

Сообщение от alex_fcsm

uses crt;
var x,y:real;
     f:text;
begin
clrscr;
assign(f,'c:\1\Myfile.txt');
reset(f);
while not(eof(f)) do
 begin
  read(f,x);
  read(f,Y);
if ((x>=1) and (x<=7)) and ((y>=2) and (y<=7)) and (sqr(x-4)+sqr(y-2)>=4) then
writeln('(',x:3:1,';',y:3:1,')','TTPEHADJlE}|{UT')
else
writeln('(',x:3:1,';',y:3:1,')','He TTPEHADJlE}|{UT');
 end;
close(f);

end.

P.S. Создайте файл с координатами
--------------
1
2
3
4
5
6
1.2
4.5
--------------

Огромное спасибо !!!!!!!