Перевод кода из Pascal в C++

[wixero]

Народ, помогите перевести код с Pascal на C++

Задача №1

var a, s: integer;
begin
s: = 0;
readln(a);
while a<>0 do
begin
if (a mod 7=0) and (a mod 10 = 2) then
s : = s + a;
readln(a);
end;
writeln(s);
end.

Задача №2

var n,i,a,max: integer;
begin
readln(n);
max := 1;
for i := 1 to n do
begin
readln(a);
if (a mod 10 = 2) and (a > max)
then max := a;
end;
writeln(max);
end.

Задача №3

var i, n, a, s: integer;
begin
s := 0;
readln(n);
for i:=1 to n do
begin
readln(a);
if (a mod 3=0) and (a mod 10 = 2) then
s := s + 1;
end;
writeln(s);
end.

[Alex11223]

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

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

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