СКИ Вычислитель состоит из двух команд, которым присвоены номера: 1 -вычесть 1
2 -умножить на 3.
Первая из них уменьшает число на 1, вторая увеличивает число в 3 раза. При записи алгоритмов для краткости указываются лишь номера команд. Например, алгоритм 21212 означает следую последовательность команд:
умножить на 3
вычесть 1
умножить на 3
вычесть 1
умножить на 3
С этого алгоритма число 1 будет преобразовано в 15: ((1*3-1)*3-1)*3=15
Запишите алгоритм для исполнителя, содержащий не более пяти команд, получения из числа:
а) 3 число 16
б) 1 число 25

1)constn=10;var i,k,min:integer; mas: array [1..n] of integer; begin  randomize;  for i:=1 to n do   mas[i]:=random(65);   min:=mas[1];   for i:=1 to n do    if mas[i] < min then    begin   min:=mas[i];   k:=i;   end;   for i:=1 to n do   write(mas[i]:4);   writeln();   writeln('minimalnoe=',min);   writeln('index=',k);   end.
2)constn=10;var i,k,min:integer; mas: array [1..n] of integer; begin  randomize;  for i:=1 to n do   mas[i]:=random(65);   for i:=1 to n do    write(mas[i]:4);  for i:=1 to n do    if mas[i] mod 3 = 0 then   mas[i]:=0;   writeln();   for i:=1 to n do    write(mas[i]:4);   end.

1) program p1;
var a,b:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
if(a>=b) then writeln('максимальное число: ', a) else  writeln('максимальное число: ', b);
end.

2)
program p1;
procedure MaxNumber(a,b: integer; var max: integer);
begin
   if a>=b then max:=a else max:=b;
end;
var a,b,c,d,m:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
writeln('Введите 3-е число: ');read(c);
writeln('Введите 4-е число: ');read(d);
MaxNumber(a,b,m);
MaxNumber(m,c,m);
MaxNumber(m,d,m);
writeln('максимальное число: ',m);
end.