Помогите, пожалуйста с задачами в «Паскале»!



1. Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Проверьте алгоритм трассировкой.(Объясните за одно, что такое «трассировка»)
2. Дано целое число Х и натуральное N. Составьте алгоритм вычисления Х^N. Проверьте алгоритм трассировкой.
Отв. 1:
1) Program ABC; 
var 
i, n, m: integer; 
begin 
write(‘введите любое натуральное число: ‘); 
readln(n); 
for i:=1 to n do 
begin 
m:=m+i; 
end; 
writeln(‘сумма всех натуральных чисел не превышающих ‘,n,’ — ‘,m); 
end. 

Трассировка — проверка программы

2)
Program ABC1;
var y,x,n,i:integer; 
begin 
write(‘Число: ‘); 
readln(n); 
wrte(‘Степень :> ‘); 
readln(x); 
y:=n; 
for i:=1 to x do 
y:=y*n; 
writeln(‘Результат: > ‘,y); 
readln 
end.

*