Var i: Integer;
begin
writeln('Введите число');
readln(i);
if (i>9) and (i<100) then writeln('Является') else
writeln('Не является');
end.
Изи, к примеру условие найти найболлшее из 4 цифр, а>б (если да то выведем что не выполнили задачу, так как до 3-его условия не добрались), нет, дальше б>с (если да то выведем что не выполнили задачу, так как до 3-его условия не добрались) нет, с>д если да то то самое большое это с, выводим переменную с на экран(write(c);), если нет то end.
Байт килобайт мегабайт и гигабайт
1 гигабайт=1024 мегабайт
1 мегабайт=1024 килобайт
1 килобайт=1024 байт
ну и для общего развития 1 байт=8бит
102, 120, 201, 210. Ноль спереди - это уже 2-х значное число.