Синформатикой, написать программу в паскале,которая по координатам 2х введенных точек определяла бы четверть координатной плоскости,где они находятся(можно сделать через 4 if),а также длину отрезка между ними(используя функцию sqrt и формулу длины отрезка)

  uses crt;   var     x,y: real; begin  clrscr;     write ('x = '); read (x);     write ('y = '); readln (y);     if (x > 0) and (y > 0) then         writeln ('номер четверти координатной плоскости: i')     else         if (x < 0) and (y > 0) then             writeln ('номер четверти координатной плоскости: ii')         else             if (x < 0) and (y < 0) then                 writeln ('номер четверти координатной плоскости: iii')             else                 if (x > 0) and (y < 0) then                     writeln ('номер четверти координатной плоскости: iv')                 else                 if (x> 0)or(x< 0) and (y=0) then    writeln ('-. точка лежит на оси. x')                                     else                 if (y> 0)or(y< 0) and (x=0) then    writeln ('-. точка лежит на оси. y')                                     else writeln ('-. точка лежит в центре.'); readln end.

21*0,01*3=0,63 вот такое решение