uses crt;
var n,m,i,p:longint;
s,k:byte;
begin
clrscr;
repeat
write('Введите натуральное число N=');
readln(n);
until n>0;
m:=n;
s:=0;
while m>0 do
begin
s:=s+m mod 10;
m:=m div 10;
end;
writeln('Числа от 1 до ',n-1,', у которых произведение цифр=',s);
k:=0;
for i:=1 to n-1 do
begin
m:=i;
p:=1;
while m>0 do
begin
p:=p*(m mod 10);
m:=m div 10;
end;
if p=s then
begin
k:=1;
write(i,' ');
end;
end;
if k=0 then write('Таких чисел нет');
readln
end.
c:char;
begin
repeat
clrscr;
writeln('Определить площадь круга:');
writeln('по 1-радиусу, 2-диаметру, 3-длине окружности');
writeln('Другие клавиши - выход.');
readln(c);
case c of
'1':begin
write('Введите радиус r=');
readln(r);
writeln('Площадь=',pi*r*r:0:2);
readln
end;
'2':begin
write('Введите диаметр d=');
readln(d);
writeln('Площадь=',pi*d*d/4:0:2);
readln
end;
'3':begin
write('Введите длину окружности l=');
readln(l);
writeln('Площадь=',sqr(l/2/pi)*pi:0:2);
readln
end;
else exit;
end;
until not(c in ['1'..'3']);
end.