z_Number12.PAS

{* Число в степени 9 за 4 операции *}

Unit Z_NUMBER12;
Interface
Implementation
Begin
 writeln('Число в степени 9 за 4 операции ');
End.

Program z_Number;

Uses z_Number12.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  NumberA    : real;
  NumberTemp : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Введите вещественное число');
  readln(NumberA);
  NumberTemp := NumberA * NumberA;
  NumberTemp := NumberTemp * NumberTemp;
  NumberTemp := NumberTemp * NumberTemp;
  NumberTemp := NumberTemp * NumberA;
  writeln('Данное число в степени 9 ');
  writeln(NumberTemp : 0 : 2);
  readln; {* Ждем нажатия Enter *}
End.