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

[viphack]

Помогите перевсти
1 program N54553636;
const n = 10; {кол-во чисел}
var i:integer;
s,x:real;
begin
s := 0;
for i := 1 to n do
begin
write('Введите ',i,'-е число: ');
readln(x);
s := s + sqr(x);
end;
writeln('Сумма квадратов чисел = ',s:0:6);
readln
end.
2. var i, sum : integer;
n : real;
begin
sum := 0;
for i := 1 to 15 do
begin
readln(n);
if n = trunc(n) then sum := sum + 1;
end;
writeln(sum);
end.
3.
readln(k);
f := true;
for i := 1 to 9 do
begin
readln(n);
if k > n then f := false;
k := n;
end;
if f then writeln('является')
else writeln('не является')

[Alex11223]

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

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

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