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

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

Program lin_8;

Uses lin_8.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  a : real;
  s : String;
Begin
  writeln('Perevesti v Funty(f) ili v Killogramy(k)');
  readln(s);
  If s = 'f' Then
  Begin
    writeln('Vvedite ves v killogramah');
    readln(a);
    writeln(a : 5 : 2, ' killogramov eto ', a / 0.4095 : 5 : 2, ' funtov')
  End;
  If s = 'k' Then
  Begin
    writeln('Vvedite ves v funtax');
    readln(a);
    writeln(a : 5 : 2, ' funtov eto ', a / 2.442 : 5 : 2, ' kilometrov')
  End;
  readkey; {* Ждем нажатия пользователя *}
End.