перевод на с++ с паскаля

program lab5_14;
uses crt;
var
  i,j,s,x,t:integer;
  g,k:real;
  a:array[1..100] of integer;
  b:array[1..10, 1..10] of integer;
begin
  clrscr;
  randomize;
  writeln('Введите четное число?');
  readln(s);
  if s mod 2 = 0 then
    begin
      g:=s;
      k:=g/2;
      t:=trunc(k);
      for i:=1 to s do
        begin
          a[i]:=random(90)+10;
        end;
      writeln('Исходный массив: ');
      for i:=1 to s do
        begin
          write(a[i],' ');
        end;
      j:=1;
      for i:=1 to s do
        begin
          if Odd(i) then
            begin
              x:= a[i];
              b[2,j]:=x;
            end
          else
            begin
              x:= a[i];
              b[1,j]:=x;
              Inc(j)
            end;
        end;
      writeln;
      writeln('Готовый массив: ');
      for i:=1 to 2 do
        begin
          for j:=1 to t do
            begin
              write(b[i,j],' | ');
            end;
          writeln;
        end;
    end
  else
    begin
      writeln('Число не четное!');
    end;
  readkey;
end.