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.