Дано натуральное число N. Вычислить произведение его цифр. на Паскале.

Program 123;

Var n, s, i: integer;

Begin

Writeln ('Введите число') ; Readln (n) ;

While n=0 do begin

S:=s * (n mod 10) ;

N:=n div 10;

end;

Writeln ('произведение цифр ', s) ;

end.

var

n, p:longint;

begin

p:=1;

write ('N = ') ;

readln (n) ;

while n 0 do

begin

p:=p * (n mod 10) ;

n:=n div 10;

end;

p:=p*n;

writeln ('Proizvedenie: ', p) ;

readln;

end.

ilyaKZ, во-первых: идентификатор не может начинаться с цифры и во-вторых: неправильно организован цикл с предусловием, программа не будем считать произведение цифр, вы наверное его перепутали с циклом с постусловием