1
найти наименьшее общее кратное двух чисел а и в.

2
найти сумму первых n четных натуральных чисел.

3
последовательность вводится n целых чисел. найти среднее арифметическое этих чисел.

int a = 0, b = 0, c = 0, d = 0;

do {
cout << "Введите размеры стола a>b: " << endl;
cin >> a >> b;
} while (b > 0 && a > b);

do {
cout << "Введите размеры прямоугольника c>d: " << endl;
cin >> c >> d;
} while (c > 0 && c > d);

int n1 = (a / c) * (b / d);
int n2 = (a / d) * (b / c);
cout << "Длинной вдоль длинной= " << n1 << " длинной вдоль короткой=
" << n2 << endl;
if (n1 > n2) {
cout << "Длинной стороной вдоль длинной больше" << endl;
}
else if (n2 > n1) {
cout << "Длинной стороной вдоль короткой больше" << endl;
}
else {
cout << "При разном расположении одинаково" << endl;
}

Программа в PascalABC.Net:
const
  digits=['0','1','2','3','4','5','6','7','8','9'];
var
  s:string;
  n,i,err:integer;
  isdigit:boolean;
begin
  Write('Введите натуральное число (1-9999): ');
  Read(s);
  i:=1;
  isdigit:=True;
  n:=Length(s);
  repeat
    isdigit:=isdigit and (s[i] in digits);
    Inc(i)
  until (not isdigit) or (i>n);
  if isdigit then
  begin Val(s,n,err); Writeln('Введено корректное число ',n) end
  else Writeln('Число содержит нецифровой символ')
end.

Отметим, что в PascalABC.Net в реальной жизни решение могло бы выглядеть так:
var
  s:string;
  n,err:integer;
begin
  Write('Введите натуральное число (1-9999): ');
  Read(s);
  Val(s,n,err);
  if err=0 then Writeln('Введено корректное число ',n)
  else Writeln('Число содержит нецифровой символ')
end.