составить блок чхему и решение задачи на паскале Y(x)={1-n во второй степени, при n >0,5

3n во второй степени, при n>=0,5,

Где n={ 1/x, при x> 0

-2x, при x<=0

Биография

После ядерной войны, которую в недалёком будущем развязал искусственный интеллект министерства обороны США «Скайнет», человечество было порабощено машинами и оказалось на грани уничтожения. Джон стал тем харизматичным лидером, который повёл уцелевших людей на борьбу. Под его руководством армия Сопротивления одержала полную победу к 2029 году. Скайнет, не имея возможности выиграть войну в настоящем, несколько раз посылал в роботов-убийц (терминаторов), чтобы предотвратить рождение Джона или убить его в юности.

Будущий отец Джона — солдат Сопротивления Кайл Риз родился в начале XXI века, вскоре после начала Войны[3] и, сам того не подозревая, служил под началом сына. Он вызвался добровольцем, чтобы быть отправленным в 1984 год для защиты от терминатора матери Джона — Сары Коннор. Сара и Риз влюбились друг в друга. Риз погиб, успев сообщить основную информацию о будущей войне.

У меня получилось 6, но если ответ другой должен получиться, то надеюсь разберешься там с прогой и исправишь

Объяснение:

var x,y,n,b,c,q:integer;

f:array [-1..1000] of integer;

begin

 for var i:=1 to 1000 do begin

   if i<=15 then

     f[i]:=2*i*i+4*i+3;

   if (i>15) then

     if (i mod 3=0) then

     f[i]:= f[n-1]+i*i+3

   else

     F[i]:= f[i-2]+i-6;

   end;

  for var i:=1 to 1000 do begin

    x:=f[i];

     while x>0 do begin

       b:=x mod 10;

       x:=x div 10;

       if b mod 2=0 then begin

         q+=1; break;

     end;

     end;

     if q=0 then

       c+=1;

 end;

 writeln (F);

 writeln (c);

end.