Var num : integer;
....
num := arr[0];
for i:=0 to n-1 do arr[i] := arr[i+1];
arr[n] := num;
Заключи то что после if в скобки и будет тебе счастье. И ' ; ' убери после g mod 2 =0.
и в действии перед if в конце поставь ' ; '.
4 Кбайт = 4*1024 байт = 4*1024*8 бит
Объем одного пикселя = 4*1024*8 / (175*175) ≈ 1,07 бит ≈ 1 бит
Число цветов = 2^1 = 2
Для начала , чтобы найти I(Обьем книги)=(кол.станиц×кол.строк×кол.символов×вес 1 символа)I=15×33×63×8=249'480 бит, теперь переводим в кбайты 249'480÷8=31'185 байт ; 31'185÷1024=30.45кбайт , округляем будет 31
кбайт.Ответ:31 кбайт нужно выделить.
P.S: Знак (') я писал, чтобы легче было распознать число.