Pascal input and output example

var
    l : double;
begin
    writeln('Пересчет расстояния из верст в километры.');
    writeln('Введите расстояние в верстах и нажмите <Enter>.');
    write('-->');
    read(l);
    writeln(l:0:2, ' верст(а/ы) - это ', (l * 1.0668):0:2, ' км.');
end.