Составить блок схемы к следующим программам

program kek;
var N,i,sum,j,t:integer;
begin
readln(N);
for j:=2 to N do
begin
t:=1;
for i:=2 to j div 2 do
begin
if j mod i = 0 then
t:=t+i;
end;
if j=t then
writeln(j);
end;
end.
program kek;
var
N, i, j, start: integer;
begin
readln(N);
start := 1;
for i := 1 to N do
begin
for j := 0 to i - 1 do
begin
write(start + 2 * j, ' ');
end;
writeln;
start := start + 2;
end;
end.