Построить блок - схему

[NewArtist]

program a2;
var a,b,k,sum:integer;
sr:real;
begin
writeln('Введите значение конца интервала');
readln(b);
a:=1;
k:=0;
if (b>a) then
begin
sum:=0;
for a:=1 to b do
begin
sum:=sum+a;
a:=a+1;
inc(k);
end;
sr:=sum/k;
writeln('Среднее значение');
writeln(sr);
end;
end.

[Mad_Cat]

Держите вашу схему