с задачей
Исполнитель Калькулятор - вычти один, умножь на два
Исполнитель КАЛЬКУЛЯТОР имеет только две команды, которым присвоены номера:

Вычти 1
Умножь на 2
Выполняя команду номер 1, КАЛЬКУЛЯТОР вычитает из числа на экране 1, а выполняя команду номер 2, умножает число на экране на 2. Напишите программу, содержащую не более 4 команд, которая из числа 3 получает число 16. Укажите лишь номера команд. Например, программа 21211 – это программа:

Умножь на 2
Вычти 1
Умножь на 2
Вычти 1
Вычти 1

которая преобразует число 1 в число 0.
введите целое число иди десятичную дробь...

Var s,v,Ke,fc:real;
Begin 
s:=18;
ke:=1;
v:=100;
Writeln('Тормозной путь автомобиля: ',s,' м');
Writeln('Тормозной коэффичиент: ',ke);
Writeln('Скорость авто в начале торможения ',v,' км/ч');
Writeln('Коэффициент сцепления с дорогой');
Writeln;Writeln('Введите показатель погодных условий: ');
Writeln('Варианты:');
Writeln('0.7-сухой асфальт');
Writeln('0.4-мокрая дорога');
Writeln('0.2-укатанный снег');
Writeln('0.1-обледенелая дорога');
Readln(fc);
S:=ke*v*v/(254*fc);
Writeln('скорость автомобиля по его тормозному пути: ',s);
end.

Действие компьютерного вируса состоит в том, что вместо букв «б», «в», «л», «о», «т» печатаются цифры, кроме цифры 0, причём разным буквам соответствуют разные цифры. Выясните, какие цифры каким буквам соответствуют, если известно, что:
1) сумма цифр слова «бот» равна 8;
2) сумма цифр слова «вол» равна 9;
3) сумма цифр слова «болт» равна 11;
4) сумма цифр слова «лото» равна 12.
болт - бот = л, л = 11 - 8 = 3
вол = 9 во = вол - л = 9 - 3 = 6
лото =12
ото = лото - л = 12 - 3 = 9
бот=8, значит о > б на 1, л = 3,
о = 2, б = 1, тогда т = 9 - 2 - 2 = 5, а - в = 6 - 2 = 4