Помогите решить задачи!

[Jenee]

Задача №1 Написать программу калькулятор (работа с 2-мя переменными) с возможностью выбора математического знака( + , - , / , * , A в степени B)
Задача №2 Дан массив А размерностью N. Записать в каждый элемент массива В следующие значения: 1ый элемент - сумма всех нечетных элементов массива А; 2ой элемент - сумма всех четных элементов массива А; 3ий элемент - сумма всех элементов массива А.

[newerow1989]

uses Math;

var a,b:real;
    c:char;
begin
   Repeat
      Write('a = '); Readln(a);
      Write('znak (+ - * / ^) = '); Readln(c);
      Write('b = '); Readln(b);
      Case c of
      '+': a:=a+b;
      '-': a:=a-b;
      '*': a:=a*b;
      '/': a:=a/b;
      '^': a:=Power(a,b);
      end;
      Writeln('c = ',a:8:5);
      Write('y - yes, n - exit: '); Readln(c);
   Until c='n';
end.

const n=10;
var a:array[1..n] of integer;
    b:array[1..3] of integer;
    i:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      a[i]:=Random(21);
      Write(a[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   For i:=1 to 3 do
      b[i]:=0;
   For i:=1 to n do
   begin
      If i mod 2=1 then
         b[1]:=b[1]+a[i] else
         b[2]:=b[2]+a[i];
      b[3]:=b[3]+a[i];
   end;
   For i:=1 to 3 do
      Write(b[i]:2,'  ');
   Writeln;
   Readln;
end.

[Jenee]

Спасибо!

[newerow1989]