Question

с клавиатуры вводится число определить квадрат куб и 6 степень этого числа. паскаль

Answer 1

Var n:longint;
Begin
Read(n);
Write(n*n,' ',n*n*n,' ',sqr(n)*sqr(n)*n*n);
End.