Ребята кто разбирается в Pascal ABC помогите пожалуйста Задачи на циклы с параметром…

1) uses crt; var a,s: real; i,n: integer; beginwrite ('Введите число А: '); readln (a); write ('Введите число N: '); readln (n); s: =1; for i: =1 to n do begin s: =s*a; end; writeln ('Число ',a,' в степени ',n,' равно ',s); end.2) uses crt; var a,s: real; i,n: integer; beginwrite ('Введите число А: '); readln (a); write ('Введите число N: '); readln (n); s: =1; for i: =1 to n do begin s: =s*a; writeln (a,' в степени ',i,' равно ',s); end; end.3) uses crt; var a,s,p: real; i,n: integer; beginwrite ('Введите число А: '); readln (a); write ('Введите число N: '); readln (n); s: =1; p: =1; write ('1+'); for i: =1 to n do begin s: =s*a; p: =p+s; if i комментировать