Ну по моему он будет красным
Var
N,A,k:integer;
P,S:real;
Begin
Write('N = ');ReadLn(N);
k:=0;
For N:= 1 to N-1 do
Begin
A:=N;
S:=0;
While A>0 do
Begin
S:=S+(A mod 10);
A:=A div 10;
End;
A:=N;
P:=1;
While A>0 do
Begin
P:=P*(A mod 10);
A:=A div 10;
End;
if S=P then
Begin
WriteLn(N);
k:=k+1;
End;
End;
if k=0 then WriteLn('Нет');
End.
Program task1;
var n, S, k, i: integer;
begin
write('Кол-во чисел = ');
readln(n);
S := 0;
For i := 1 to n do
begin
write('Введите число ');
readln(k);
S := S + k
end;
writeln('Сумма введенных произвольных чисел = ', s);
end.
Сколько всего бусин и кинь фотку