Табулирование функции и суммы функционального ряда

[mrRastom]

Program Chislo15;
uses crt;
const n=9;
var a,b:array[1..n] of integer; i,j:integer;
begin
clrscr;
for i:=1 to n do   (Вводим первую цифру)
  a[i]:=i;
for j:=1 to n do   (Вводим вторую цифру)
  b[j]:=j;
for i:=1 to n do    (Создаем все двухзначные числа без нолей
  for j:=1 to n do   т.к. 0^2+a^2 никогда не кратны 15)
    begin
      if (sqr(a[i])+sqr(b[j])) mod 15=0 then  (Выбираем из них кратные 15.Это 36,39,63,93.
 write(a[i]*10+b[j],' ');                      (Выводим их на экран)   
    end;
  readln
end.

А можно, если не затруднит, зарисовать блок-схему?
Ну или на словах можно обьяснить. Буду очень признателен.

P.S. сорри за некропост