Напечатать таблицу перевода миль в километры для расстояний от 5 до 75 миль с шагом 5, если 1 миля составляет 1,609 км? Как решить VBA Help

program miles2km ;
uses crt;
const mile=1.609;
shag=5;
var
i,x:integer;
km:real;
begin
clrscr;
i:=0;
x:=70;
while i<=x do
begin
i:=i+shag;
km:=i*mile;
writeln(i,' mile ' ,km:2:4,' km ');
end;
readkey;
end.