Cоставить программу на языке паскаль,которая вычисляет длину пути за v км/ч,за t часов

Var
  v,t:real;
begin
  write('Скорость(км/ч) = ');
  readln(v);
  write('Время(ч) = ');
  readln(t);
  writeln;
  writeln('Расстояние = ',v*t);
end.