{* Пересчет из верст в километры и наоборот *}

Unit LIN_7;
Interface
Implementation
Begin
 writeln('Пересчет из верст в километры и наоборот');
End.

Program lin_7;

Uses lin_7.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  a : real;
  s : String;
Begin
  writeln('Perevesti v Versti(v) ili v Kilometri(k)');
  readln(s);
  If s = 'v' Then
  Begin
    writeln('Vvedite rasstoyanie v kilometrax');
    readln(a);
    writeln(a : 5 : 2, ' kilometrov eto ', a / 1.0668 : 5 : 2, ' verst')
  End;
  If s = 'k' Then
  Begin
    writeln('Vvedite rasstoyanie v verstax');
    readln(a);
    writeln(a : 5 : 2, ' verst eto ', a / 0.937 : 5 : 2, ' kilometrov')
  End;
  readkey; {* Нажмите любую клавишу *}
End.