Задачи по информатики в паскале помогите плиз 1) вычислите А^8 2) вычислите расстояние между двумя точками на прямой

Первая программа:var a: real;begin writeln(\'Введите число A:\'); readln(a); writeln(sqr(sqr(a * a)));end.Третья программа:var a, b, c: real;begin writeln(\'Введите число катеты треугольника:\'); readln(a, b); c := sqrt(sqr(a) + sqr(b)); writeln(c);end.Вторая задача не школьного уровня.