Пользователь вводит расстояние выраженное в милях нужно перевести это расстояние в км(1 миля=1,6км)

program qwerty;
uses crt;
var a:real;
begin
clrscr;
writeln('Введите количество миль');
readln(a);
a:= a*1.6;
writeln('Кол-во киллометров - ',a:2:2);
readkey;
end.

Программа на Паскале:

Program xxx;
    Var a, b:real;
Begin
  writeln('Введите количество миль');
  readln(a);
  b:= a*1.6;
  writeln('Кол-во киллометров - ',b)
End.