Определить расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1) и M2(x2,y2)

Этапы решения задачи:

1. Математическая модель: расстояние на плоскости между двумя точками M1(x1,y1) и M2(x2,y2) высчитывается по формуле
2. Составим схему алгоритма

program example1; 
var x1, x2, y1, y2: integer; 
 d:real; 
begin 
 write('x1= '); readln(x1); 
 write('y1= '); readln(y1); 
 write('x2= '); readln(x2); 
 write('y2= '); readln(y2); 
 d:=sqrt(sqr(x2-x1)+sqr(y2-y1)); 
writeln('d=',d); 
end. 
Доработаем программу, так чтобы она обладала некоторым интерфейсом.: 
program example1; 
var x1, x2, y1, y2: integer; 
 d:real; 
begin 
 writeln('Эта программа вычисляет расстояние между двумя точками на плоскости'); 
 writeln('Введите координаты двух точек:'); 
 write('x1= '); readln(x1); 
 write('y1= '); readln(y1); 
 write('x2= '); readln(x2); 
 write('y2 ='); readln(y2); 
 d:=sqrt(sqr(x2-x1)+sqr(y2-y1)); 
 writeln('d= ',d); 
 writeln('нажмите Enter для завершения работы программы'); 
 readln; 
end.