max:=mas[0];
For i:=1 to N do
if ((mas[i] mod 2 <>0)and(max<mas[i]))then max:=mas[i];
2 байта = 2*8 бит = 16 бит = 16 разрядов
Program z1;
const nmax[100];
var a,b:array of integer[1..nmax];
var i,j:integer;
begin
i=1;
while not eol do
begin
read(a[i]);
i++;
end;
readln();
j=1;
while not eol do
begin
read(a[j]);
j++;
end;
write(abs(j-i));
end.