Вопрос по информатике:

Нужна блок схема к следующим алгоритмам на паскаль школьная работа срочно!!!!
4. var
i:longint;
begin
for i:=100 to 999 do
if (i mod 7)=0 then writeln(i);
end.5.var
i,s:longint;
begin
s:=0;
for i:=100 to 999 do
if (i mod 13)=0 then s:=s+i;
writeln(s);
end.6. var
i,k:longint;
begin
k:=2;
for i:=1 to 10 do
begin
writeln('2 в степени ',i,'=',k);
k:=k*2;
end;
end.