Напишите блок схему. умоляю скорее !
program pr1;
var i,b: integer; a,s: real;
begin
readln(b);
for i: =1 to b-9 do
begin
readln(a);
if (a mod 3 = 0) and (a mod 2 < > 0) then
s: =s+a;
end;
writeln(s);
end.​

марленна    3   08.10.2019 10:32    7