Составьте блок схему к этой задаче по информатике

Program summa;
var s, i: integer;
begin
s:=0;
Randomize;
For i:= 1 to 10 dobegin
A[i]:= Randomize(50);
s:= s+A[i];
End;
For i:= 1 to 10 do write (a[i],' ');
writeln('s=',s);
End.