Решить задачу на языке Pascal :

Среди всех двузначных чисел найти двузначное число, равное утроенному произведению его цифр. 

var i:integer;

begin

for i:=10 to 99 do

if i=3*(i div 10)*(i mod 10) then writeln(i);

end.