program Calc;
var
a, res: Integer;
begin
a := 5;
a := a * a * a;
res := a;
WriteLn (res);
ReadLn;
end.
program Calc;
var
a, res: Integer;
begin
a := 5;
a := a * a * a;
res := a;
WriteLn (res);
ReadLn;
end.