Помогите пожалуйста перевести код с Pascal в С++1)Var* n:integer;Begin* Write(039;Введите

Помогите пожалуйста перевести код с Pascal в С++
1)Var*
n:integer;
Begin*
Write('Введите число ');*
Readln(n);*
if sqr(n) = (4*(sqr(n div 10)*(n div 10)+sqr(n mod 10)*(n mod 10))) then write('Ответ положительный') else write('Ответ отрицательный');
End.

2)Var
a:integer;
begin
* *readln(a);
* * * if (a mod 10+a div*10gt;10) and(a mod 10+ a div 10lt;100) then
* * * * * *writeln('двузначное')
* * * else writeln('не двузначное');
if a mod 10+a div 10gt;a then
* * writeln('больше')
else writeln('не больше');
end.

3)Var n,s,a:integer;
Begin
Repeat
write('Введите число N: ');readln(n);
Until n in [10..99];
write('Введите число a: ');readln(a);
s:=(n div 10)+(n mod 10);
if s mod 3 = 0 then writeln('Сумма цифр кратна 3')
else writeln('Сумма цифр не кратна 3');
if s mod a = 0 then writeln('Сумма цифр кратна ',a)
else writeln('Сумма цифр не кратна ',a);
End.