Найти все двухзначные числа, квадрат суммы цифр которых делится на 15- Pascal(Паскаль)

var
i:integer;
begin
for i:=10 to 99 do
if sqr(i mod 10+i div 10)mod 15=0 then write(i,' ');
readln;
end.