С! ввести с клавиатуры координаты двух точек (а и в) на плоскости (вещ. числа) . вычислите длину отрезка ав.

Program programma; uses crt; var xa,xb,ya,yb,d: real; begin clrscr;           write('введите координаты точки a через пробел: ');           readln(xa,ya);           write('введите координаты точки b через пробел: ');           readln(xb,yb);                     d: =sqrt(sqr(xa-xb)+sqr(ya-yb));           writeln;           write('длина отрезака ab = ',d: 0: 3)   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.

1)false (т.к. x> y)

2)true (x< y,x не равен y)

3)false(x> y)

4)true(т.к. x=y, x не равен y)