Составьте таблицу для определения, лежит ли точка с заданными координатами в круге указанного радиуса( считать, что центр круга расположен в начале координат) : дано: радиус круга: 5 координаты точки: x= 4,5; 1; 3; 2,5; 2,5. y= 2; 5; 4; 2,5; 4,5. лежит ли точка в круге? подскажите по какую формулу if нужно составить чтобы найти ответ

x1, y1 - координаты точки;  

x, y - координаты центра круга

r - радиус

if (x1 > x - r) and (x1 < x + r) and (y1 > y - r) and (y1 < y + r)

program aaa;   var d, n : integer; begin  write ('введите число n-');   readln (n);   writeln('делители числа: ');   for d : =1 to n do  if n mod d = 0 then writeln (d)end.

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.