check/for.p


1
2
3
4
5
6
7
8
9
10
11

program main ( input, output );

        var a, b,c: integer;
begin

	a := 1;
	(* test *)
	for c := 0 to 10 do begin
		for a:= 10 downto 0 do b := a - c
	end
end.