Помогите, пожалуйста!!!
ТЕМА: ПРОГРАММИРОВАНИЕ ЦИКЛОВ
1) Составьте на Паскале программу возведения в N-ую степень целого числа x.
2) Составьте на языке Паскаль программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Построить трассировочную таблицу.

Все выполнено на языке pascal;Первая задача: Var number, step, i, stepen: integer;  Begin stepen:= 1; Read(number, step);   For i:= 1 to step do  stepen := stepen * number;   Writeln (stepen); End.Вторая задача:Var number, sum, max, i: integer;Begin  sum:= 0; number:= 0;  Read(max); For i:= 1 to max do    Begin      number:= number + 1;    sum:= sum + number;   End;  Writeln (sum);End.