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

Program rasstojanie1;Uses CRT;Var x1, x2, y1, y2, d : real;Begin CLRSCR; Write ( ‘ vvedite pervuju koordinatu pervoj tochki x1= ‘); Readln (x1); Write ( ‘ vvedite vtoruju koordinatu pervoj tochki y1= ‘); Readln (y1); Write ( ‘ vvedite pervuju koordinatu vtoroj tochki x2= ‘); Readln (x2); Write ( ‘ vvedite vtoruju koordinatu vtoroj tochki y2= ‘); Readln (y2); d:= sqrt (sqr(x2-x1)+sqr(y2-y1));Writeln ( ‘ rasstojanie mezhdu tochkami= ‘ , d:10:2 );Repeat until keypressed;End.Program rasstojanie2;Uses CRT;Var x1, x2, d : real;Begin CLRSCR; Write ( ‘ vvedite koordinatu pervoj tochki x1= ‘); Readln (x1); Write ( ‘ vvedite koordinatu vtoroj tochki x2= ‘); Readln (x2); d:= abs (x2-x1);Writeln ( ‘ rasstojanie mezhdu tochkami= ‘ , d:10:2 );Repeat until keypressed;End.