[Raskolnikov]

Если за деньги - пусть с нами поделится

тут врятли кто-то весь код напишет

Это и кодом-то можно только условно назвать

Код:

var
  i, count: Integer;
begin
  count:= 0;
  for i:= 10 to 99 do
    if (Sqr(i mod 10) + Sqr(i div 10)) mod 13 = 0 then
      Inc(count);
  Edit1.Text:= IntToStr(count);
end;