Напишите программу которая вычесляет расстояние пройденное автомобилем за время t при движении со скоростью u км/ч и выводит на экран монитора результат

Program pyt;
var  s,v,t:real;
begin
writeln ('чему равна скорость и время движения -?');
read(v,t);
s:=v*t;
writeln ('путь, пройденный автомобилем=', s);
end.