Найти все двузначные числа, квадрат суммы цифр которых делится на 15 (4 способа)

program z;

var i, a, a1, s:integer;

begin

writeln ('Двухзначные числа, квадрат суммы цифр которых делится 13') ;

for i:=10 to 99 do

begin

a:=i;

s:=0;

while a0 do

begin

a1:=a mod 10;

s:=s+a1;

a1:=a div 10;

a:=a1;

end;

if sqr (s) mod 13=0

then

writeln (i) ;

end;

end.