Var
A, B, C, D, N, V, K, M: integer;
F: Text;
begin
Assign(f,'input.txt');
Reset(f);
Readln(N,A,B,C,D);
Close(f);
V := A * B * N;
if V mod C <> 0 then
K := V div C + 1
else
K := V div C;
if K mod D <> 0 then
M := K div D + 1
else
M := K div D;
writeln(M)
end.
Тестовое решение:
2