найти, сколько деталей изготовила бригада

[3Doleg]

Бригада должна была выполнить задания по изготовлению деталей за n дней, а выполнила скорее за n1 дней, потому что изготовляла ежедневно на p деталей больше. Сколько деталей изготовила бригада?

немогу понять как должно быть верно?
возможно P не нужно вводить?

program a4;
var a,n,n1,p:real;
begin
writeln('vvedite chuslo dnei,za kotorie brugada dolchna bula zdelaTb zadanue- ');
readln(n);
writeln('vvedite chuslo dnei,za kotorie brugada zdelala zadanue- ');
readln(n1);
writeln('vvedite naskolko brugada ejednevno uzgotovlyala detalei bolwe- ');
readln(p);
a:=n1*(n+p);
writeln('koluchestvo detalei,kotorue zdelala brugada- ', a:4:1);
readln;
end

Буду очень благодарен!)
p.s.:turbo pascal

[BDA]

Для начала нужно решить задачу на бумажке и вывести формулу.
Ответ: p*n1*n/(n-n1)

[3Doleg]

спасибо за ответ)

[3Doleg]

решил, еще раз спасибо)