Решите контрольную по информатике.!

#include <iostream>
#include <vector>
using namespace std;

int main() {
cout << "Введите массив (0, чтобы закончить):\n";
int k,
sb = 0, cb = 0,
sg = 0, cg = 0;
vector<int> v;
while (true) {
cin >> k;
if (k == 0)
break;
else
v.insert(v.end(), k);
}
for (int i = 0; i < v.size(); i++) {
if (v[i] < 0) {
sb += -1 * v[i];
cb++;
}
else {
sg += v[i];
cg++;
}
}
cout << "Средний рост юношей: "
<< (sb / cb) << '\n'
<< "Средний рост девушек: "
<< (sg / cg) << '\n';
return 0;
}

Uses
  crt;

var
  a, b, c: integer;

begin
  clrscr;
  writeln('Что вы хотите сделать?');
  writeln('1-сложить 2-отнять 3-разделить 4-умножить');
  readln(c);
  if c = 1 then begin
    read(a, b);
    writeln(a + b)
  end
  else
  if c = 2 then begin
    read(a, b);
    writeln(a - b)
  end
    else
  if c = 3 then begin
    read(a, b);
    writeln(a / b)
  end
      else
  if c = 4 then begin
    read(a, b);
    writeln(a * b);
  end
  else
    write('Так, стоп, че за фигня? Где то тут меня надурили...');
  readkey
end.

Но короче и понятнее это написать так:
uses
  crt;

var
  a, b, c: integer;

begin
  ClrScr;
  Writeln('Что вы хотите сделать?');
  Write('1-сложить 2-отнять 3-разделить 4-умножить'); Readln(c);
  if (c >= 1) and (c <= 4) then begin
    Write('Введите через пробел два натуральных числа: '); Read(a, b);
    case c of
      1: Writeln(a + b);
      2: Writeln(a - b);
      3: Writeln(a / b);
      4: Writeln(a * b)
    end;
  end
  else Write('Так, стоп, че за фигня? Где то тут меня надурили...');
  ReadKey
end.