28(10)-19(10) в восьмибитном представлении

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.

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.

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.

2000 - k

16 бита - i

v=k*i=2000*16=32000 бита=4000 байтов