Паскаль Цикл с постусловием. Вычислить приближенную сумму бесконечного ряда 1- 13+15-17+… с точностью 0,0001​

Program V;
Var y, x: real;
Begin
writeln(‘значение функции y’);
x:=-4;
while x<=2 do
begin
y:=4*x^2-2*x+3 ;
x:=x+0,5;
writeln(y:16:4);
end;
End.

0,25 Кбайт=256 байт=> 0,25 Кбайт> 200 байт
3 байта= 24 бита, т.к 3 байта= 24 бита
2560 битов < 2,5 Кбайта, т.к 2,5 Кбайта= 20000 бит
1000 Кбайт= 1 Мбайт, т.к 1000 Кбайт=1 Мбайт, а 1 Мбайт=1 Мбайт
8192 байта > 8 Кбайт, т.к 8192 байта= 8,192 Кбайта

Первое знакомство с вирусом у меня был лет 8 назад.У меня тогда был более менее для тогдашнего времени мощный компьютер.Интернетом пользовались только для обмена файлами а для компьютерных игр приходилось покупать CD диски на котором была записан та или иная игра.Такие диски были дорогой роскошью.Ребята в основном обменивались между собой играми.Антивирусами тогда никто не пользовался.Все думали зачем он им нужен, говорили что только зря компьютер нагружают и вирусом на компе в котором не использовался интернет быть не может.Однажды когда я играл в свою любимую игру вдруг она вылетела, я подумал что это ерунда и перезапустил игру, но она вновь вылетела.Ни одна игра на пк не запускался система была забита непонятными задачами и я установил антивирус.Он нашел в моем компе внимание 82 ВИРУСА.Вылечить эти файлы не удалось и пришлось удалять вместе с сохраняниями в играх.Мой комп 13% составлял из вирусов и без переустановки windows не обошлось.Так я в первые на себе увидел компьютерных "паразитов"

1)
if min>a[i] then
min:=a[i];

2)
if a[i] mod 2 <> 0 then
kol:=kol+1;

3)
if a[i]>0 then
begin
sum:=sum+a[i];
kol:=kol+1;
end;
sum:=sum/kol
4)
if a[i]>5 then
a[i]:=sqr(a[i]);

5)
if a[i]<>4islo then
a[i]:=a[i]-(a[i]*2);