3. Исполнитель преобразует число на экране. У исполнителя есть две команды, которым присвоены номера: 1. Разделить на 2 2. Вычесть 1 Первая команда уменьшает число на экране в 2 раза, вторая — уменьшает его на 1. Программа для исполнителя — это последовательность команд. Определите количество программ, которые число 64 преобразуют в чис ло 14.

A)Pascal
Var
 a,b,c,d, average: real;
 Begin
   Writeln('Введите 4 числа, каждый ввод закончить нажатием кнопки Enter');
    readln(a,b,c,d);
    Average:=(a+b+c+d)/4;
   Writeln('Среднее Арифметическое 4-х чисел = ',Average);
 end.

b) 
 var 
   Age,High:integer;
  Ves:real;
begin
 Writeln('Введите Возраст');
  readln(age);
 Writeln('Введите Рост);
 readln(high);
Writeln('Введите вес);
readln(ves);
Writeln('Ваш возраст ',age,'Ваш Рост ', high, ' Ваш Вес ',ves);
end.

C) 
var 
 n:integer;
begin
 Writeln('Введите Число N');
 readln(n);
 n:=n*n;
Writeln('Квадратный корень равен= ',n);
end.