По заданным координатам точек а и в вычислите длину отрезка ав пример входных данных: ха=10 ya=2 xb=10 yb=7 с объяснением

Длину отрезка можно найти по формуле var xa,xb,ya,yb: integer;           {объявляем координаты точек}     dl: real;                     {в dl будем записывать найденную длину отрезка}     begin xa: =10; ya: =2;                     {присваиваем значения координатам точек} xb: =10; yb: =7; dl: =sqrt(sqr(xb-xa)+sqr(yb-ya));   {считаем длину отрезка по формуле выше} writeln ('длина отрезка=',dl);     {выводим длину отрезка} end.

var i,n : integer;

begin

  read(n);

  for i: = 1 to n do

      if n mod i = 0 then

          writeln(i);

end.

Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer;     a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 );   for i : =1 to n do   begin   x : =xc +round (rc * cos (a *i ) );   y : =yc -round (rc * sin (a *i ) );   circle (x ,y ,ro );   end; end.