Помогите плиз. Задачи по программированию циклов. Только 1 и 2.

Question

Помогите плиз. Задачи по программированию циклов. Только 1 и 2.

---

Answer 1

Номер1
Program awdas;
Uses crt;
Var i,n,a:integer;
begin
read (n);
for i:=1 to n do
begin
s:=s+sqr(i);
write (s,'+ ');
end;
end.
второй номер
номер1
Program awdas;
Uses crt;
Var i,n,a:integer;
begin
read (n);
s:=1;
for i:=1 to n do
begin
s:=s*i;
write (s,'* ');
end;
end.