program ThreeDigitNumbers;

var
N, num, digit1, digit2, digit3, count: integer;

begin
count := 0;

write('Enter N: ');
readln(N);

for num := 100 to 999 do
begin
digit1 := num div 100;
digit2 := (num div 10) mod 10;
digit3 := num mod 10;

if (digit1 * digit2 * digit3 = N) then
begin
writeln(num);
count := count + 1;
end;

end;

writeln('Total count: ', count);

end.