Задание 4:

uses crt;

var a,b,c,a6,:real;

begin

clrscr;

write('a=');

readln(a);

b:=a*a;

c:=b*b;

a6:=c*a;

writeln('a^6=',a6:0:2);

writeln('e^(a^6)=',exp(a6):0:2);

readln

end.

Объяснение:

Могу ошибиться, задание не из простых.