program raf105;
var
a,b,c: real;
begin
write('a = ');
readln(a);
b:= a*a*a;
c:= b;
a:= b*c;
writeln('Вывод: ',a);
end.
program raf105;
var
a,b,c: real;
begin
write('a = ');
readln(a);
b:= a*a*a;
c:= b;
a:= b*c;
writeln('Вывод: ',a);
end.
PascalABC