program way;
var t,u,s : real;
begin
writeln('Введите скорость в км/ч u= ');
read(u);
writeln('Введите путь в км s= ');
read(s);
if (s
writeln ('Введите положительные значения')
else
begin
t:=s/u*60;
writeln('Время движения t=',t);
end;
end.
P.S программа написана для Паскаля