Как написать по информатике линейную программу на вычисление?

Uses crt;

Var x1, y1, x2, y2, r: Real;

Begin / / начало программы

Clrscr; / / очистка экрана

Write ('x1=') ;

ReadLn (x1) ; / / ввод х1

Write ('x2=') ;

ReadLn (x2) ; / / ввод х2

Write ('y1=') ;

ReadLn (y1) ; / / ввод у1

Write ('y2=') ;

ReadLn (y2) ; / / ввод у2

r:=sqrt (sqr (x2-x1) + sqr (y2-y1)) ; / / вычисление расстояния между точками

WriteLn ('r=', r:5:3) ; / / вывод результата

readkey; / / ожидание нажатия клавиши

end.