program zz1;
uses crt;
var a,b,c,d:integer;
BEGIN
clrscr;
writeln('vvedi a');
readln(a);
b:=a*a;
c:=a*a*a;
d:=a*a*a*a*a;
writeln('b=',b:17);
writeln('c=',c:17);
writeln('d=',d:17);
readln;
END.