<span>2Мбайта = 2048 Кбайт = 2097152 байт = 16Мбит = 16777216 бит</span>
Протокол - это <span>правила взаимодействия технических устройств в сети</span>
Var
str : string;
i,c,a,count : integer;
begin
i:=1;
count :=0;
writeln('Вводите числа, как только введете все числа нажмите любую букву');
while i=1 do begin
readln(str);
val(str,a,c);
if ( a mod 2 <>0) then count := count +a;
if(c<>0) then i:=0;
end;
writeln('Сумма нечетных чисел = ', count);
<span>end.</span>
A=a - это глупость.
if not(a>b) then a:=b; <-так правильнее.