Не сочтите за долбаёба, но что это и почему не отстаёт?

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

389 365 402 201

триста восемьдесят девять миллиардов триста шестьдесят пять миллионов четыреста две тысячи двести один

в одном байте восемь бит. следовательно 100/8=12.5   ответ 12.5

пщояк 17 27 16 33 17

нщёп 15 27 7 17