Сделать в Free Pascal.
В салон красоты пришло n девушек. Каждая из них должна посетить парикмахера и косметолога. У каждого она проводит по m часов. За какое наименьшее время k сотрудников салона красоты смогут обслужить всех девушек, если каждый сотрудник может выполнять функции как косметолога, так и парикмахера?

Входные данные
три натуральных числа k, m, n( все числа не больше 10 000).

Исходные данные
одно число – минимальное время в часах, которое требуется для обслуживания всех девушек.

Извените можете с файлами зделать

Чтение из файла, запись в файл? Имя входного файла и имя выходного файла?

var k,m,n,p,s: integer; f: text;begin assign(f,'input.txt'); reset(f); readln(f,k,m,n); close(f); s:=2*n*m; p:=0; repeat s:=s-k*2*m; p:=p+1; until s<=0; p:=p*2*m; assign(f,'output.txt'); rewrite(f); writeln(f,p); close(f);end.