Помогите написать программы в Паскале

Question

Помогите написать программы в Паскале

---

Comments

5 балов за 2 задачи, которые сами не в состоянии решить? Дешево же Вы оцениваете чужой труд!

---

Я тут ненашел где баллы,так бы дал 10 балов

---

Ой, да ладно... прекрасно видно, где.

---

Честное слово

---

Мне хотябы первую

---

Нельзя. Ответ по Правилам должен быть ПОЛНЫМ.

---

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin Writeln('s=',Range(1,ReadInteger('n=')).Select(x->x*x).Sum)end.

---

Вот вся Ваша первая программа

Answer 1

1.var a,b:integer;
begin
readln(a);
b:=0;
for var i:=1 to a then b:=b+sqr(i);
write(b);
2.

---

Comments

В задаче 1 надо найти сумму КВАДРАТОВ чисел