Question

среди всех двузначных чисел найдите те у которых произведение цифр равно самому числу

 

Answer 1

var i:integer;
begin
  for i:=10 to 99 do
    if (i mod 10)*(i div 10)=i then writeln(i);
end.
---
Но насколько мне известно, среди двузначных чисел таковых не имеется.

Answer 2

А, следовательно, программа не даст ответа.