ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Составьте программы к блок-схемам.​

6.program scheme;var y,i,x:integer;begin y:= 0; for i:= 1 to 10 do begin readln(x); if x mod 2 <> 0 then y:=y+1; end; writeln(y);end.

5.

program scheme;

var y,i,x:integer;

begin

 y:= 0;

 for i:= 1 to 10 do

   begin

     readln(x);

     if x mod 2 = 0 then

       y:=x+y;

   end;

 writeln(y);

end.