пмогите плз. с задачкой справиться

Нейромонах Феофан, балалаечник Никодим и косолапый мишка притаптывают поле.
Феофан в одиночку может притоптать поле за A часов, Никодим – за B часов, мишка – за C часов. Кроме того, им готовы помогать добры молодцы, каждый из которых может притоптать поле за D часов.

Сколько добрых молодцев необходимо пригласить на помощь Феофану, Никодиму и мишке, чтобы они успели притоптать поле за N часов?
Формат ввода

На вход программе поступает 5 чисел A, B, C, D, N. Все числа вещественные, не превышают 2⋅109.
Формат вывода

Программа должна вывести одно целое число – минимальное необходимое количество добрых молодцев.
Пример
Ввод

7 11 8 9 2


Вывод

2

но уже исправил

скопируй новое и проверь

теперь заработало!!! спасибо!

удачи!

Надеюсь получишь пятерку!

Вот:program pole;var a, b, c, d, n, kolvo, x, y: real;beginwrite ('За сколько часов топчет землю Нейромонах Феофан? ');read (a);write ('За сколько часов топчет землю Балалаечник Никодим? ');read (b);write ('За сколько часов топчет землю Косолапый Мишка? ');read (c);write ('За сколько часов топчет землю 1 Добрый Молодец? ');read (d);write ('За сколько часов нужно выкопать землю? ');read (n); x:=1/a+1/b+1/c;kolvo:=(1/n-x)/(1/d);if (kolvo<0) then write ('Группа справится без молодцев.') elsebeginy:=kolvo;if (((trunc(y*10)) mod 10) <5) then kolvo:=kolvo + 1;write ('Вот столько вам потребуется добрых молодцев: ', round(kolvo));end;end.