Соберите блок-схему нахождения в переменной p произведения целых чётных чисел на отрезке от 3 до m(включая m),где m>2.Перенесите записи в рамки, соответствующие нужным блокам блок-схемы

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) ) 

одновременно нажать alt и 3 (на цифровой клавиатуре с права)

♥

2000*2000=625 кб возможно но я неуверена