Pascal abc.net                                                                                          
Двузначное число втрое больше суммы своих цифр, а квадрат этой суммы равен
утроенному первоначальному числу. Найдите это число.

var s,d,f,g,i:integer;beginfor i:=10 to 99 do begins:= i div 10;d:= i mod 10;f:= s+d;if (i*3 > f) and (sqr(f) = 3*s) then writeln(i);end;end.