Программа, которая выводит на экран квадрат и куб целого числа, введенного с клавиатуры.

program p_3;

var n,n2,n3:integer;

BEGIN

readln(n);

n2:=n*n;

n3:=n2*n;

writeln(n,'^2= ',n2,n:5,'^3= ',n3);

readln;

END.