Задачи с циклом while

[Даниэлла1]

нужно решить задачки,помогите пожалуйста:
1.Число 2 складывается 10 раз,нужно вычислить с помощью цикла while
2.х складывается n число раз, нужно вычислить с помощью цикла while
3. х в квадрате складывается n раз,нужно вычислить с помощью цикла while
вот примерное решение 1 задачи,подправьте и подскажите остальные:
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12

program pascal;
uses wincrt;
var n:integer;
begin
i:=1;
while i < 10 do
begin
s:=s+2;
i:i+1;
end;
write(n);
end

[VadikV]

1.

program pascal;
uses wincrt;
var n:integer;
begin
i:=0;
n := 0;
while i < 10 do
begin
n:=n+2;
i:=i+1;
end;
write(n);
end

2.

program pascal;
uses wincrt;
var n:integer;
x : integer;
begin
readln(x);
i:=0;
n := 0;
while i < 10 do
begin
n:=n+x;
i:=i+1;
end;
write(n);
end

3.

program pascal;
uses wincrt;
var n:integer;
x : integer;
begin
readln(x);
x := x*x;
i:=0;
n := 0;
while i < 10 do
begin
n:=n+x;
i:=i+1;
end;
write(n);
end

[unbanned]

Сообщение от VadikV

3.

program pascal;
uses wincrt;
var n:integer;
x : integer;
begin
write('Введите х: ');
readln(x);
x := sqr(x);
i:=1;
n := 0;
while i <= 10 do
begin
n:=n+x;
inc(i);
end;
write('n=',n);
end

небольшие поправки)))