{* Программа для перевода велечин *}

Unit TRANSL1;
Interface
Implementation
Begin
 writeln('Вы вводите какое-то число, затем выбираете что вы ввели, а затем выбираете в какую величину надо перевести. Перевод величин производится по соответствующим формулам. Для выхода из программы необходимо ввести 0.');
End.

Program pas;

Uses transl1.pas; {* Эту строку можно удалить *}
label 10;
Var {* Необходимые переменные *}
  a  : word;
  a1 : word;
  x  : real;
  x1 : real;
Begin
  10 :  writeln('Введи число:');
  readln(x);
  If x = 0 Then
    halt;
  writeln('Чаво это за единица?');
  writeln('1 - дюйм');
  writeln('2 - фут');
  writeln('3 - ярд');
  readln(a);
  Case a Of  1 : x1 := x * 25.4;
    2 : x1 := x * 12 * 25.4;
  3 : x1 := x * 3 * 12 * 25.4;
End;
  writeln('Во что переведём?');
  writeln('1 - дюйм');
  writeln('2 - фут');
  writeln('3 - ярд');
  writeln('4 - мм');
  writeln('5 - см');
  writeln('6 - метр');
  writeln('7 - км');
  readln(a1);
Case a1 Of  1 : x1 := x1 / (25.4);
  2 : x1 := x1 / (12 * 25.4);
3 : x1 := x1 / (3 * 12 * 25.4);
4 : x1 := x1;
5 : x1 := x1 / 10;
6 : x1 := x1 / 100;
7 : x1 := x1 / (1000 * 1000);
End;
writeln; {* Вывод пустой строки *}
writeln('Ответ: ', x : 5 : 2, ' = ', x1 : 5 : 2);
Goto 10;
End......