Знаменита скорость машины v км\ч(вводится с клавиатуры). Напечатать таблицу расстояний за

var
s, t, i : integer;        // объявляем переменные целочисленного типа.
v : real;                  // объявляем переменную вещественного типа.

begin
    writeln(Введите скорость в км/ч:);        // вывод строчки на экран.
    readln(v);                                               // считываем значение скорости.
    v := v * 1000 / 3600;                            // переводим скорость в м/сек.
    writeln (Скорость(м/сек.)     Время(сек.)     Расстояние(м.));      // вывод шапки таблицы.
        for i:=0 to 60 do                       // начало цикла. 
          begin
              if ((i = 0) or (i mod 10 = 0)) then      // если время 0 или кратно 10 секундам.
              writeln(round(v,2),        ,i,       , round(v * i,2)); // вывод строчки таблицы на экран.
          end;
end.