Если х — любое число, то вот: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.
Если х — любое число, то вот:
var x, a, b, c: real;
begin
read(x);
a:=x*x;
b:=a*a;
c:=b*b;
write(c);
end.
Если х — целое число, то вот:
var x, a, b, c: integer;
begin
read(x);
a:=x*x;
b:=a*a;
c:=b*b;
write(c);
end.