Напишите программы на Паскале, используя цикл "Пока". 1)Составьте метод вычисления суммы

1)
Program n1;
var sum,n,i: integer;
begin
i:=1;
sum:=0;
readln(n);
while ilt;=n do
begin
sum:=sum+i;
i:=i+1;
end;
write(sum);
end.

2)
Program n2;
var x,n,i,z: integer;
p: integer;
begin
readln(x,n);
i:=0;
p:=1;
z:=1;
if xlt;0 then z:=-1;
x:=abs(x);
while ilt;gt;n do
begin
p:=p*x;
i:=i+1;
end;
if (z=-1) and (i mod 2=0) then write(p) else if (z=-1) and (i mod 2lt;gt;0) then write(-p) else write(p);
end.