Cоставить программу в Паскале:Заданы координаты концов отрезка x1- y1 и x2- y2 и два целых числа N1, NВычислить координаты точки х — у, которая дели

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.