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

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