Pascal ! Нужно составить ! Алгоритм ! Блок схема !

[valerka92]

var a1,b1:real;
i:integer;
procedure power3(a:real;var b:real);
begin
b:=a*a*a;
end;
begin
for i:=1 to 5 do
begin
readln(a1);
power3(a1,b1);
writeln('a^3=',b1);
end;
readln;
end.

[diamFC]

Блок-схемы в прицепе.

А как удалить сообщение?, а то я тут правила нарушил.... нельзя ссылки на другие сайты...