Simple loop: table of integers, squares and cubes:

	program table;
	var
		i: integer;
	begin
	i := 0;
	while i <= 5 do
		begin
		writeln(i, ' ', i*i, ' ', i*i*i);
		i := i + 1;
		end;
	end.

Sample output

>0 0 0
>1 1 1
>2 4 8
>3 9 27
>4 16 64
>5 25 125