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

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.