помогите решить задачки по Паскалю

"4":

Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования. Пример: Введите число: 100 сумма = 5050

"5":

Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.

1)

program z1;uses crt;var n,i,s:integer;beginwriteln('введите n');readln(n);s:=0;for i:=1 to n dos:=s+i;writeln(s);end.