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

program Project1;function Power(const aX : Extended; const aY : Integer) : Extended;var Res, X : Extended; Y, i : Integer;begin if aY >= 0 then begin X := aX; Y := aY; end else begin X := 1/aX; Y := - aY; end; Res := 1; for i := 1 to Y do begin Res := Res * X; end; Power := Res;end; var StrTmp : String; X, Res : Extended; Y : Integer;begin repeat Writeln(\'Задайте вещественное или целое число X:\'); Readln(X); Writeln(\'Задайте целочисленную положительную или отрицательную степень Y:\'); Readln(Y); Res := Power(X, Y); Writeln(\'Ответ: X^Y = \', Res); Writeln(\'Повторить - ENTER. Выход - любой символ + ENTER.\'); Readln(StrTmp); until StrTmp <> \'\';end.2) var n, i, sum: integer; begin read(n); for i := 1 to n do sum := sum + i; writeln(sum);end.