program PowerCalculation;
vara, square, power5, power17: real;
beginwriteln('Enter a number: ');readln(a);
square := a a;power5 := square square a;power17 := power5 power5 power5 power5 * a;
writeln('Square of ', a, ' is ', square:0:2);writeln('5th power of ', a, ' is ', power5:0:2);writeln('17th power of ', a, ' is ', power17:0:2);
end.
program PowerCalculation;
var
a, square, power5, power17: real;
begin
writeln('Enter a number: ');
readln(a);
square := a a;
power5 := square square a;
power17 := power5 power5 power5 power5 * a;
writeln('Square of ', a, ' is ', square:0:2);
writeln('5th power of ', a, ' is ', power5:0:2);
writeln('17th power of ', a, ' is ', power17:0:2);
end.