Cоставить программу в паскале: заданы координаты концов отрезка (x1; y1) и (x2; y2) и два целых числа n1, n2. вычислить координаты точки (х; у), которая делит отрезок в отношении n1/n2: если l=n1/n2, то х=(х1+l*x2)/(1+l) , y=(y1+l*y2)/(1+l).

Program qq;
uses crt;
var x1, y1, x2, y2, n1, n2: integer; x, y, L, M, k, b: real; // чтоб было приятно, возьмём координаты начальных точек - целыми числами.
begin
writeln ('Введите координаты первой точки через пробел');
readln(x1, y1);
writeln('Введите координаты второй токи через пробел');
readln(x2, y2);
writeln ('введите через пробел числа N1 и N2');
readln(n1, n2);
l:=n1/n2; //далее производится расчет по формулам, данным в задании

x:=(x1+L*x2)/(1+L);
y:=(y1+L*y2)/(1+L);
writeln ('Координаты искомой точки (',x,';',y,')');
end.