Определите расстояние, которое преодолеет поезд, двигаясь со скоростью v км/м, t часов.

Program n;
var s,v,t:real;
begin
writeln('Введите время');
readln(t);
writeln('Введите скорость');
readln(v);
s:=v*t*60;
writeln(s,' км');
end.