Составьте блок схема для ввода с клавиатуры 10 действительных чисел и нахождения суммы всех положительных чисел

P.s во вложении будет скриншот блок-схемы и файл с ней.

Программа:

 program test1;

const  

n=10;

var  

a: array [1..n] of real ;

i:Integer;

s:real;

begin

s:=0;

for i:=1 to n do

 begin  

   read (a[i]);

   if a[i]>0 then  

     s:=s+a[i];

 end;

WriteLn(s);

end.