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.