Среди двузначных чисел найти те, сумма квадратов цифр которых делится на13

program zz1;

var a, b, s, i:integer; / / задаем переменные целого типа

begin

for i:=10 to 99 do / / перебираем все двухзначные числа в цикле

begin

a: = i div 10; / / находим первую цифру двухзначного числа

b: = i mod 10; / / находим вторую цифру двухзначного числа

s:=sqr (a) + sqr (b); / / высчитываем сумму квадратов цифр двухзначного числа

if s mod 13 = 0 / / проверяем на делимость полученной суммы на число 13

then write (i, ' '); / / выводим ответ в строку через пробел

end;

end.