Составить программу, которая запрашивает у пользователя целое число и выводит квадрат, куб, и пятую степень этого числа. !

Var  i: integer;
begin
write('введите число ');
readln(i);
writeln('квадрат этого числа= ',I*i);
writeln('куб этого числа= ',power(i,3));
writeln('пятая степень этого числа= ',power(i,5));

end.