Сделать в free pascal. в салон красоты пришло n девушек. каждая из них должна посетить парикмахера и косметолога. у каждого она проводит по m часов. за какое наименьшее время k сотрудников салона красоты смогут обслужить всех девушек, если каждый сотрудник может выполнять функции как косметолога, так и парикмахера? входные данные три натуральных числа k, m, n( все числа не больше 10 000). исходные данные одно число – минимальное время в часах, которое требуется для обслуживания всех девушек.
write('n m k через пробел: ');
readln(n,m,k);
s:=2*n*m;
p:=0;
repeat
s:=s-k*2*m;
p:=p+1;
until s<=0;
p:=p*2*m;
writeln('время: ',p);
end.
n m k через пробел: 3 2 5
время: 4
n m k через пробел: 6 2 4
время: 8