напишите программку для решения физической задачки велосипедист едет с неизменной скоростью

program way;

var t,u,s : real;

begin

writeln('Введите скорость в км/ч u= ');

read(u);

writeln('Введите путь в км s= ');

read(s);

if (slt;0) or (ult;0) then

 writeln ('Введите положительные значения')

else

 begin

  t:=s/u*60;

  writeln('Время движения t=',t);

 end;

end.

P.S программка написана для Паскаля