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.