program cubeNumbers;vari, cube: integer;beginfor i := 5 to 20 dobegincube := i i i;writeln(i, '. ', cube);end;end.
program cubeNumbers;
var
i, cube: integer;
begin
for i := 5 to 20 do
begin
cube := i i i;
writeln(i, '. ', cube);
end;
end.