Function GGL(A:integer;S1:string;S2:string;S3:string):string;
Begin
Case round(Power((A div 10) mod 10 -1,((A div 10) mod 10 -2)*((A div 10) mod 10 -3)*((A div 10) mod 10 -4)*((A div 10) mod 10 -5)*((A div 10) mod 10 -6)*((A div 10) mod 10 -7)*((A div 10) mod 10 -8)*((A div 10) mod 10 -9))*(A mod 10)) of
1:result:=A.ToString+S1;
2..4:result:=A.ToString+S2;
0,5..9:result:=A.ToString+S3;
End;
End;

Var S,V1,V2,T:real;
Begin
Write('Скорость первого автомобиля = ');ReadLn(V1);
Write('Скорость второго автомобиля = ');ReadLn(V2);
Write('Расстояние между автомобилями = ');ReadLn(S);
T:=S/(V1+V2);

WriteLn('Автомобили встретятся через ',GGL(trunc(T),' час ',' часа ',' часов ')+GGL(trunc((T-trunc(T))*60),' минуту ',' минуты ',' минут '));
End.