Автомобиль движется со скоростью V км/ч в течении Т часов. Определить пройденное расстояние – S

var V, T, S : integer;
// V - скорость в км/ч
// T - время в часах
// S - путь в км
begin
  repeat                                                    // повторять до тех пор пока
  Write('Введите скорость: ');                              // ввод скорости
  Readln(V);
  if V<0
  then Writeln('Скорость не может быть отрицательной!');
  until V>-1;                                               // V не будет больше -1 (как минимум 0)
  repeat                                                    // повторять до тех пор пока
  Write('Введите время в часах: ');                         // ввод времени
  Readln(T);
  if T<0
  then Writeln('Время не может быть отрицательным!');       // T не будет больше -1 (как минимум 0)
  until T>-1;
  S:=V*T;                                                   // вычисление пройденного пути
  Writeln('Пройденный путь: ', S);
end.