При использовании палитры из 16 цветов для хранения одного пикселя требуется log(2)16 = 4 бита. Объем памяти для хранения изображения = 24*24*4 бит = 2304 бит
Универсальное решение
var
a, d, s: real;
i, n: integer;
begin
writeln('Введите х, разность и n');
readln(a, d, n);
s := a;
for i := 2 to n do
begin
a := a + d;
s := s + a;
end;
writeln(s);
end.
А) токсические радиоволны
в) головная боль и мигрень
с) слишком яркое восприятие