Найти площадь и периметр параллелограмма записать в с++ коде

Var   a, b: integer; begin   readln(a, b);   if a * b < 0 then {если числа разных знаков}       writeln(2 * a, ' ', 2 * b)   else if a > 0 then begin{иначе одного знака и больше нуля}       if a > b then           writeln((a + b) / 2, ' ', b)       else           writeln(a, ' ', (a + b) / 2)   end   else begin       if a > b then           writeln(a, ' ', -b)       else           writeln(-a, ' ', b)   end; end.

Const   n = 20; var   a: array[1..n] of integer;   m, i: integer; begin   for i : = 1 to n do   begin       a[i] : = random(21) - 10;       write(a[i]: 4);   end;   writeln;   for i : = 1 to n - 1 do       if (a[i] mod 2 < > 0) or (a[i + 1] mod 2 < > 0) then m : = m + 1;   writeln('всего пар', m); end. тестовое решение:     2  -8    8  -5    7  -8  -3  -6  -9    2  -1  -3  -8    6  10    7  -4  -8    0  -5 всего пар 13