uses crt;
var
n,j:word;
b1,b2,b3:word;
c:char;
label lb;
begin
textbackground(5);
lb:clrscr;
textcolor(14);
j:=0;
{$I-}
repeat
write('‚ўҐ¤ЁвҐ N: ');
readln(n);
if IOresult<>0 then writeln('‚ўҐ¤Ґ® ҐўҐа®Ґ § 票Ґ!') else
if (1>n)or(n>=1000) then writeln('‚ўҐ¤Ґ® ҐўҐа®Ґ § 票Ґ!');
until (1<=n)and(n<1000);
{$I+}
for b1:=0 to 9 do
for b2:=0 to 9 do
for b3:=1 to 9 do
begin
if (b3+b2*10+b1*100)>n then break;
if (b2<=b3)and(b1<=b2) then
begin
write(b1,b2,b3,' ');
j:=j+1;
end;
end;
writeln;
writeln('Љ®«ЁзҐбвў® зЁбҐ« а ў® : ',j);
write('Џ®ўв®аЁвм? (Y-¤ , Ё зҐ-«оЎ п ¤агЈ п Є« ўЁи )');
c:=readkey;
if (c='y')or(c='Y') then goto lb
else
end.