{678}
uses crt;



var
  suma,a,b,c,x,y,z,suma2nd,licznik,swap:integer;
  glowna:integer;
  plik:text;
  ch:char;
  name:string;

begin
   clrscr;
   writeln('(c)2000 NailSoft, Karol Bonenberg');
   writeln;
   write('Enter filename to save values : ');
   read(name);
   assign(plik,name);
   rewrite(plik);
   writeln(plik,'I have found following numeral values : ');
   writeln;
   writeln('Searching for variables...');
   licznik:=0;
   glowna:=100;
   for glowna:=glowna+1 to 999 do
        begin
           x:=glowna div(100) mod(10);
           y:=glowna div(10) mod(10);
           z:=glowna div(1) mod(10);
           suma:=x+y+z;
           a:=(x*y*z) div(100) mod(10);
           b:=(x*y*z) div(10) mod(10);
           c:=(x*y*z) div(1) mod(10);
           suma2nd:=a+b+c;
           a:=suma2nd div(10) mod(10);
           b:=suma2nd div(1) mod(10);
           swap:=a+(b*10);
           if ((x*y*z)>100) and (suma=swap) then
                                 begin
                                 licznik:=licznik+1;
                                 writeln(licznik,'. --->   ',glowna);
                                 writeln(plik,licznik,'. --->   ',glowna);
                                 end;
          end;
   close(plik);
   writeln('Accomplished. Saved to file : ',name);
   writeln('Total quantity of numeral values :',licznik);
   writeln;
   writeln('<<<PRESS [ENTER] TO EXIT>>');
   readkey;
end.