Составить блок-схему по массивам по готовой программе..

[maru]

Здравствуйте,срочно нужна ваша помощь!По готовой программе нужно составить блок-схему..Очень срочно..

Program Pt;
Var
X:array [1..6] of real;
I:integer;
Y:real;
Begin
Writeln (‘vvediten massiv x’);
For i:=1 to 6 do
Real (x[i]);
Y:=0;
For i:=1 to 6 do
Y:=SQRT (x[i]);
Writeln (‘y=’,y:10:2);
End.

[CodeExpert]

maru, ну вообще правильнее было бы так:

Program Pt;
Var
X:array [1..6] of real;
I:integer;
Y:real;
Begin
Writeln (‘vvediten massiv x’);
For i:=1 to 6 do Real (x[i]);
Y:=0;
For i:=1 to 6 do begin
Y:=SQRT (x[i]);
Writeln (‘y=’,y:10:2);end;
End.

хотя я не знаю точно ваше задание!
Вот держите блок-схему:
Документ1.png