Система команд исполнителя "калькулятор", содержит две команды, которым присвоены номера: 1. умножить на 3 2. вычти 5 составьте алгоритм получения из числа 1 числа 7, содержащий не более 5 команд. в ответе напишите только номера команд без пробелов и запятых

Var n, i, d: integer; found: boolean; begin d: =1; found: =false; writeln('введите целое число больше единицы'); readln(n); if n mod 2 = 0 then d : = n div 2 else       begin       i: =(n div 2)-1;       while (found=false) and (i > 2) do             begin             if n mod i = 0 then begin found: =true; d: =i; end;             i: =i-1;             end;       end; if d=1 then writeln('введённое число оказалось простым') else writeln('наибольший целый делитель введённого числа равен ',d); end.

Program pos; var       s: string;       l: integer; procedure printchar(n: integer); var       sub: string; begin       sub : = copy(s, n, 1);       write(sub);       if n < > 1 then               printchar(n - 1); end; begin       write('введите слово: ');       readln(s);       l : = length(s);       printchar(l); end.