Вроде как то так)Только можно линии толще сделать
Для палитры 65536 цветов требуется 16 бит или 2 байта на точку.
Перемножим все данные и получим:
1024*768*2=1572864 байт=1536 кбайт = 1,5 Мбайт
Всего две стороны у флажка
Флажков пять
Максимальное количество возможных сигналов =
= 2^5 =32 сигнала
У тебя цикл работает, пока Y меньше 14, но внутри цикла ты Y не увеличиваешь, поэтому программа работает бесконечно и не выдаёт ответ.
Я добавил переменную i:integer (integer - чтобы работал mod(остаток от деления на число)), потому-что у нас чередуются знаки + и -. Также убрал зацикливание
program three;
var c,a,y,t,n:real;
i:integer;
begin
writeln('Введите с');
readln(c);
y:=3;
t:=0;
i:=0;
while (y<14) do begin
i:=i+1;
n:=sqr(y);
if i mod 2 = 1 then t:=t-((c-3)/n)
else t:=t+((c-3)/n);
y:=y+2;
end;
writeln(t);
end.