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

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.