Помогите,пожалуйста, построить структурную схему

[retyih]

program Project5;{Дан массив P(N),состоящий из N вещественных чисел,найти сумму
элементов массива, превышающих число 5,89}

{$APPTYPE CONSOLE}
const n=4; {количество элементов массива}
type m=array [1..n] of Integer;
var c:m;
i:Integer;
s:Integer;{s-сумма элементов массива}
begin
  Randomize;
  for i:=1 to n do
  begin
    c[i]:=Random(20);
    Writeln (c[i]:8);
    end;
    {заполняем массив случайными числами из интервала [5.89...n]}
    s:=0;
    for i:=1 to n do
    if c[i]>5.89 then s:=s+c[i];
    s:=s+c[i]; {находим сумму элементов}
    Writeln ('ih summa ravna',s);{vivodim rezultat}
    Readln;
    end.

[Человек_Борща]

И как вы это себе представляете?
Я тебе код, ты мне картинку. Не равносильный обмен, знаете ли.
Раздел желаний - "Помощь студентов". Тут все начинается с вас

Показывайте свои зарисовки..