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

[Анастасия0]

что нужно добавить в программу что бы она начала работать?
Uses crt;
var i,temp,number:integer;
begin
for i:= 10 to 99 do begin
temp:=number mod 10;
number:=number div 10;
if (sqr(temp)+sqr(number)) mod 13=0 then write(i:4);
end;
end.
условие задачи было такое: Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13.

[p51x]

number := i;