Program z1; Var a,b:integer; Begin write('Введите 1-ое число - '); readln(a); write('Введите 2-ое число - '); readln(b); if (a>0) then writeln('Является') else if (b>0) then writeln('Является') else writeln('Не является');<span>End.</span>
В одном байте 8 бит, в одном килобайте 1024 байт, в одном мегабайте 1024 килобайт, то есть 1 мегабайт это 8*1024*1024 бит
Shift+Alt как современные дети не могут это знать