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

Var v:real; i,h:integer;
begin
write(V = ); readln(v);
v:=v*1000/3600; //м/сек
h:=10;
for i:=0 to 60 div h do
 writeln(i*h:3, сек,v*i*h:6, м);
end.

Пример:
V = 90
  0 сек     0 м
 10 сек   250 м
 20 сек   500 м
 30 сек   750 м
 40 сек  1000 м
 50 сек  1250 м
 60 сек  1500 м