Составить блок схему и программу vbasic для вычисления f(x, y)=x^3/1+x^2+y^4 x=2 y=1 ответ=1, 16 составить макрос который построит график шаг 1 10 точек сделать кнопку в которую вставить макрос

Program p1; const n=5; var i: integer;     kurs: array[1..n] of real;     summa,r,bank: real; begin   writeln('введите сумму: ');   read(summa);   for i: =1 to n do  begin   writeln('введите курс в ',i,' банке: ');   read(kurs[i]);   end;     r: =0;   for i: =1 to n do  begin   if (kurs[i]*summa)> r then   begin   r: =kurs[i]*summa;   bank: =i;   end;   end;     writeln('выгодно в банке №: ',bank); end.

Код в  turbo  pascal: uses graph,crt; var x,y,dx,dy,device,mode,i: integer;   begin      device: =0;       initgraph(device,mode,'');       x: =10; y: =10;       dx: =1; dy: =1;       i: =1;   repeat          setcolor(cyan);           circle(x,y,10);           setfillstyle(1,3);           floodfill(x,y,cyan);           delay(10);           setcolor(black);           circle(x,y,10);           setfillstyle(1,0);           floodfill(x,y,black);           x: =x+dx; y: =y+dy;       if (x> 300) or (y> 200) then                                                                begin                                                                    x: =10;                                                                     y: =10;                                                                     i: =i+1;                                                                 end;   until i> 5; end.