Напишите программу пересчёта расстояния их километров в вёрсты (1 верст = 1066,8 м). для паскаль abc

Var a:real;
begin
writeln('Введите расстояние в километрах');
readln(a);
a:=a*1000/1066.8;
writeln(a);
end.