Ответ: Извиняюсь. Невнимательно прочитал задание. После del:=10000; нужно добавить строку s:=1; строку s:=s+x1; заменить на s:=s*x1 строку writeln (‘summa… поменять на writeln (‘proizvedenie…;
Ответ: program qqq;var n, s, x1, z1, i, del: integer;beginwriteln (‘vvedi 5-znachnoe chislo < 32768’);{ограничение типа integer}readln (n);del:=10000;for i:=1 to 5 dobeginz1:= n mod del;x1:= n div del;s:=s+x1;n:=z1;del:=del div 10;end;writeln (‘summa cifr=’, s);readln;end.