блок схема

[Sky{Force}]

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

function sum(i: longint): longint;
var j, s: longint;
begin
s := 0;
for j := 1 to i div 2 do begin
if i mod j = 0 then begin
s := s + j;
end;
end;
sum := s;
end;

var
i, j: longint;
begin
for i := 200 to 300  do begin
for j := i to 300 do begin
if (sum(i) = j) and (sum(j) = i) then
writeln(i, ' and ', j);
end;
end;
readln
end.

срочно нужна блок схема.