Question

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

Answer 1

Ответ:

program Calc;

var

 a, res: Integer;

begin

 a := 5;

 a := a * a * a;

 res := a;

 WriteLn (res);

 ReadLn;

end.