Помогите пожалуйста перевести код с Pascal в С++

[Z4belin]

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*10>10) and(a mod 10+ a div 10<100) then
* * * * * *writeln('двузначное')
* * * else writeln('не двузначное');
if a mod 10+a div 10>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.

[Alex11223]

Вы не перепутали "помогите" и "сделайте за меня"?

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум, а не *.