Составьте алгоритм в системе команд исполнителя из 12212, по которому число 1 будет преобразовано в число 16 (в алгоритме должно быть не более 5 команд)

program cifry;

var p: integer;

var c: integer;

var s: integer;

var d: byte;

BEGIN

writeln('Программа расчёта разности произведения и суммы цифр трёхзначного числа.');

c:=100+random (900);

writeln('Число -', c);

p:=1;

s:=0;

d:=c mod 10;

s:=s+d;

p:=p*d;

c:=c div 10;

d:=c mod 10;

s:=s+d;

p:=p*d;

c:=c div 10;

d:=c mod 10;

s:=s+d;

p:=p*d;

c:=c div 10;

write('Разность произведения и суммы цифр числа -', p-s);

end.

Объяснение:

Нуэно ставить ";"  + переменная var

var p:integer, Нужно запускать програму и останавливать BEGIN , end. write писать в одной строке!