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.