Если х — любое число, то вот:var x, a, b, c: real;beginread(x);a:=x*x;b:=a*a;c:=b*b;write(c);end. Если х — целое число, то вот:var x, a, b, c: integer;beginread(x);a:=x*x;b:=a*a;c:=b*b;write(c);end.