uses crt;
var a,b,c,d:double;
begin
clrscr;
writeln('Вводите числа, окончание ввода 0:');
repeat;
readln(a);
a:=a*a; b:=a*a; c:=b*b; d:=c*a;
if frac(d)=0 then write(d:0:0)
else write(d:0:10);
readln;
until a=0;
end.
Следующий вариант
var
x,c,z,k,n: real;
begin
clrscr;
writeln (' vvedite chislo:');
readln (n);
x:=n*n;
c:=x*x;
z:=c*c;
k:=z*x;
writeln ('chislo v 10 stepeni=' , k:0:0);
readkey;
end.