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

program zad1;var y1,y2,d,x1,x2:real;beginwriteln(\'Задайте координаты первой точки\');readln(x1,y1);writeln(\'Задайте координаты второй точки\');readln(x2,y2)d:=sqrt(sqr(x2-x1)+sqr(y2-y1));writeln(\'расстояние между этими точками=\',d:0:1);end.ВТОРОЙ ВАРИАНТ ВЫПОЛНЕНИЯ ПРОЦЕДУРЫ:var x1,y1,x2,y2,d: real;beginwrite(\'первая точка: x y\'); readln(x1,y1); write(\'вторая точка: x y\'); readln(x2,y2); d:=sqrt(sqr(x2-x1)+sqr(y2-y1)); writeln(\'расстояние: \',d);end.ИЛИvar x1, x2, x3, x4: real;beginwriteln(\'Введите координаты двух точек через пробел \'); readln(x1,x2,x3,x4);writeln(\'Расстояние между точками = \',sqrt(sqr(x3-x1)+sqrt(x4-x2)));end.