Помогите переписать код из паскаля в C++var N: integer; количество

Помогите переписать код из паскаля в C++
var

N: integer; количество чисел

a: integer; еще одно число

s: integer; сумма двух последних цифр

d: array [0..18] of integer; подсчёт сумм

mx: integer; наибольшее количество сумм

imx: integer; самая частая сумма

i: integer;

begin

for i:=0 to 18 do d[i]:=0;

readln(N);

for i:=1 to N do begin

readln(a);

s := a mod 10 + a div 10 mod 10;

d[s] := d[s]+1;

end;

mx := 0;

for i:=0 to 18 do begin

if d[i] gt;= mx then begin

mx := d[i];

imx := i;



end;

writeln(imx)

end.