Курсовая работа2 / Examples / 3for

Program ThreeFor;
var
	i1: integer;
	i2: integer;
	i3: integer;
	i:  integer;
begin

i:=1;

for i1 := 1 to 10 do
	for i2 := 1 to 10 do
		for i3 := 1 to 10 do
		begin
			write(i);
			writeln;
			i := i+1;
		end;		
end.