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

Uses crt;Var x1,y1, x2,y2, r: Real;Begin  // начало программыClrscr;  // очистка экранаWrite('x1=');  ReadLn(x1);  // ввод х1Write('x2=');   ReadLn(x2);   // ввод х2Write('y1=');ReadLn(y1);  // ввод у1Write('y2=');ReadLn(y2);  // ввод у2r:=sqrt(sqr(x2-x1)+sqr(y2-y1));   // вычисление расстояния между точкамиWriteLn('r=',r:5:3);   // вывод результатаreadkey;  // ожидание нажатия клавишиend.