помогите написать код пж срочно!!!!!

program raf105;

var V,t,x: integer;

begin

write('Скорость поезда V(км/час.) = ');

readln(V);

write('Время в пути t(час.) = ');

readln(t);

x:= V*t;

writeln('Пройденное расстояние: ',x,' (км.)');

end.

Язык PascalABC