Составьте программы на паскаль для вычисления выражений: x в степени 8, x вводится с клавиатуры

Если х — любое число, то вот:

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.