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

Программа:

const
a=10;
type
TMyArray=array[1..a] of byte;
var
i:byte;
x, s: integer;
M: array[1..a] of byte;
begin
s:=0;
writeln ('vvedite chislo ',x);
readln (x);
for i:=1 to a do M:=i+1;
for i:=1 to a do
if M>x then
s:=s+M;
writeln (' summa ravna ',s-11);
end.