Написать программу на языке паскаль

var x: integer;

begin

x: =-1;

while x< =12 do

begin

writeln('x = ',x,'; y = ',(4*x*x*x*x+cos(x)-5)/(6*x*x*x+2));

x: =x+0,4;

end;

end.

1*2⁶+1*2⁵+0*2⁴+1*2³+0*2²+1*2¹+1*2⁰=

64+32+8+2+1=107

1*2⁶+0*2⁵+0*2⁴+0*2³+1*2²+1*2¹+0*2⁰=

64+4+2=70

фамилия

                  имя

          отчество