Найдите пары встроенная функция и ее запись

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.

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.

2000 - k

16 бита - i

v=k*i=2000*16=32000 бита=4000 байтов

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n