Кто может составить Блок-схемы

[Ed_5]

var a, b : integer;
begin
cls;
read(a);
b:=a mod 10 * 100 + a div 10 mod 10 * 10 + a div 100;
write(b);
end.

[Ed_5]

var a : array[1..100] of integer;
i, n : integer;
g : real;
begin
cls;
repeat
inc(i);
read(a[i]);
until a[i]=0;
n:=i-1;
g:=1;
for i:=1 to n do g:=g*a[i];
g:=power(g,1/n);
write(g);
end.

[Ed_5]

var k : integer;
begin
cls;
read(k);
if k mod 2=0 then write('+1') else write('-1');
end.

[ROMA2PVT]

а чё сами не в состоянии?