Begin
var s,v,t,t1,t2:real;
writeln('Введите пройденный путь: ');
readln(s);
writeln('Введите скорость человека: ');
readln(v);
t:=v/s;
t1:=(v/s)*60;
t2:=(v/s)*3600;
write('Время ходьбы: ','.В часах ',round(t),'.В минутах ',round(t1),'.В секундах',round(t2));
end.