Помогите написать код пж срочно!!!!!
program raf105;
var V,t,x: integer;
begin
write('Скорость поезда V(км/час.) = ');
readln(V);
write('Время в пути t(час.) = ');
readln(t);
x:= V*t;
writeln('Пройденное расстояние: ',x,' (км.)');
end.