напишите программу, которая вводит координаты двух точек на числовой оси и выводит расстояние между ними.

входные данные
в первой строке вводятся через пробел координаты первой точки (сначала x -координата, потом y -координата), во второй строке в том же порядке – координаты второй точки. все координаты – вещественные числа.

выходные данные
программа должна вывести одно число: расстояние между точками с тремя знаками в дробной части

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

на паскале:

program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.

написано для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.

и какая вероятность что пользователь не

program i_guess_number; uses crt; var changes: array [1..2,1..10] of integer; i,op,n: integer; s: string; res: real; begin      randomize;       writeln("загадайте число");       n : = 0;       repeat            n : = n+1;             i : = random(10);             op : = random(4);                         case op of                  1: s : = "прибавте ";                   2: s : = "отнимите ";                   3: s : = "умножте на ";                   else s : = "поделите на ";             end;                         writeln(s, i);             changes[1,n] : = op; {запоминаем действия}            changes[2,n] : = i;       until n = 10;             writeln("что вышло? ");       readln(res);             for i : = n downto 1 do { производим обратные действия }      begin            case changes[1,i] of                  1: res : = res - changes[2,i];                   2: res : = res + changes[2,i];                   3: res : = res / changes[2,i];                   else res : = res * changes[2,i];             end;       end;                   writeln("вы загодали ",res); end.