<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var n:=ReadInteger('Введите четырехзначное натуральное число:');
var p:=1;
while n>0 do begin
p:=p*(n mod 10);
n:=n div 10
end;
Writeln('Произведение цифр числа равно ',p)
end.
var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
Я мог ошибиться в формуле. Она в цикле, перепроверь.
Выбирает ))) А что, где и как - это зависит от той программы, которую ты имеешь в виду и тщательно скрываешь от нас.
Д - 01...............................................................