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

[Edwin017]

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

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

 

[Natasha84]

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.