Лабораторная работа № 6. Цикл с параметром Вариант 10. Pascal

I. Дана программа, решающая определенную задачу. Составить систему тестов к данной
программе. Привести итоги работы программы для каждого теста
Даны натуральное число x и неотрицательное целое n. Вычислить xn
program x_n;
var
x, n, i, res: integer;
begin
readln(x, n);
res := 1;
for i := 1 to n do begin
res := res * x
end;
writeln(res)
end.

II. Дана программа, решающая указанную задачу и содержащая синтаксические и алгоритмические ошибки и/или пропуски. Указать строки, содержащие эти ошибки и их содержание. Исправить их. Если есть пропуски, заполнить их. Представить правильный вариант программы.
Записать программу возведения числа а в степень n.
program a_n;
var a,n,i,p : real;
begin
write('n,a=');readln(a,n);
p:=0;
for i:=0 to a do ____;
write('p=',p);
end.

III. Решить следующую задачу:
10. Вывести все трехзначные числа на отрезке [a, b], сумма каких-либо двух цифр которого равна третьей цифре. Подсчитать количество таких чисел

IV. Решить следующую задачу:
Вычислить сумму 1-1/2+1/3-⋯+((-1)^n-1)*1/n  . Условный оператор и операцию возведения в степень не использовать.