Программирование, 10 класс pascal abc необходимо написать код к (как можно проще): указать в диапазоне от a до b числа, сумма цифр которого совпадает с их произведением. или сообщить об отсутствии таких чисел.

Const a=1; b=5;
Var i:integer;
Begin       
for i:=a to b do       
if i*i = i+i then       
writeln(i);       
readln;       
end. Достаточно простой код