Помогите решить, Паскаль
 

1. Напишите программу печати таблицы перевода расстояний из верст в метры для значений длин от 1 до 20 версты (1 верста = 1066,8 м).

program perevod;
var a:real;
i:integer;
begin
for i:=1 to 20 do
begin
a:=i*1066.8;
Write(i,' ', 'верст -', ' ', a, ' ', 'метр(ов)');
Write(' ');
end;
end.