program N_1;
uses crt;
var a,a2,a3:integer;
begin
writeln ('Введите натуральное число');
readln (a);
a2:= sqr(a);
a3:=a*a*a;
writeln (a, ': ', a2, ' ', a3);
end.
program N_1;
uses crt;
var a,a2,a3:integer;
begin
writeln ('Введите натуральное число');
readln (a);
a2:= sqr(a);
a3:=a*a*a;
writeln (a, ': ', a2, ' ', a3);
end.