var x,y:real;
begin
readln(x);
if x<=3 then y:=-5
else if x>3 then y:=2*x-4;
write('y = ',y);
readln;
end.
1гб=1042мбайт
2гб=2084мбайт
2084:3=694
Потому как в цветовой модели RGB координаты цвета задаются в формате (Red Green Blue) сколько красного, зеленого и синего. В цветовой модели HSB можно выбрать цвет подобрать яркость и насыщенность. Минус формата HSB для отображения на экране монитора все равно придется перевести в RGB.
Program program;
var a,b,c:integer;
d,e:real;
begin
writeln('Введите два числа: ');
readln(a,b);
c:=a+b;
d:=c/3;
e:=c/7;
writeln('Сумма равна: ',c,'Результат деления на три: ',d,'Результат деления на семь: ',e);
end.