Авторські розв'язки задач 2 туру

******************** Задача t2z1 ********************

{$I-,Q-,R-,S-}
var n,m,c,p,k,h:int64;
f:text;
begin
 assign(f,'ekonom.in');reset(f);readln(f,n,m,k,c,p,h);close(f);
 assign(f,'ekonom.out');rewrite(f);
 writeln(f,p*10/k/c*m/n*h:0:3);
 close(f);
end.

******************** Задача t2z2 ********************

{$I-,Q-,R-,S-}
var t,k:int64;
    n,x:int64;
    f:text;
begin
assign(f,'time.in');reset(f);readln(f,n,t,k);close(f);
x:=(n*t) div k;
assign(f,'time.out');rewrite(f);
writeln(f,'h:',(x div 3600),'m:',(x-(x div 3600)*3600) div 60,'s:',x mod 60);
close(f);
end.