check/for.p


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

program main ( input, output );

        var a, b: integer;
        var x,y,z: real;
	var ai :array [1..10] of integer;
begin
{ TEST }

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