program st;
var A, B: real;
begin
write('Введите значение A: '); {2}
readln(A);
B := A * A; {B = 4}
writeln(A,' во второй степени - ', B);
B := B * B; {B = 16}
writeln(A,' в четвертой степени - ', B);
B := B * B; {B = 256}
writeln(A,' в восьмой степени - ', B);
end.