program n1;
var x,y:real;
begin
writeln('Введите x');
read(x);
if x>=2 then y:=2*x+3 else
y:=(x+1)/(x-2);
writeln('Значение функции равно ',y);
end.
2 мбайта переводим в биты умножая на 2 в 23 степении делим на 1000*900 получим примерно 16 бит значит в палитре 2 в 16 степени цветов