Алгебры логики - всё вычисления и ТД в двоичном коде с помощью алгебры и логических функций типо и, или , конъюнкции
Program rost;
var a: integer;
begin
readln (a);
if a<=180 then
Writeln('Не очень высокий')
else
Writeln('Высокий');
<span> end.</span>
А можно было переводить Мегабайты в килобайты, но я сделал по другому)