Напишите ая алгоритм вычисления у по формуле y=(1 - x в квадрате + 5х в четвертой степени) в квадрате

Алг       нач           вещ x, y           ввод x              y : = (1 - x ** 2 + 5 * x ** 4) ** 2              вывод y        кон

program massiv;

var b: array[1..100]of integer;

r,n,m,i,p,k,a: integer;

begin

randomize; writeln ('a='); readln(a);

writeln('n='); readln(n);

for i: =1 to n do begin

b[i]: =random(50)-25;

writeln('a[',i,']=');

if b[i]> 0 then begin r: =r+b[i]; p: =r*2;

if b[i]> a then k: =k+1;

if ((b[i]< a)and(b[i]> 0)) then m: =m+1;

end; end; writeln('удвоенная сумма положительных элементов ',p);

writeln('kол-во элементов массива , значения которых больше заданного числа',k);

writeln('количество положительных элементов не превсходящих заданного числа',m);

end.

program zamena;

uses crt;

var c: char;

begin

      clrscr;  

      write('введите символ: ');

      readln(c);    

 

      case c of

          'a','a', 'e','e', 'i','i' 'o','o' 'u','u',' y','y': writeln('! ');

          'b','b',c,'c','d','d','f','f','g','g','h','h','j','j',k,'k','l','l','m','m', 'n','n' 'p','p','q','q','r','r','s','s' ,'t','t','v','v','w','w' ,'x','x', 'z','z':   writeln('? ');

      '0'..'9': writeln(': ');    

              else writeln('*');

 

      end;  

 

  readkey;

  end.