git @ Cat's Eye Technologies Iphigeneia / rel_1_0_2007_1125 test / 07.iphi
rel_1_0_2007_1125

Tree @rel_1_0_2007_1125 (Download .tar.gz)

07.iphi @rel_1_0_2007_1125 — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
(* Test 'while ... do ...' *)

var a in var b in var c in
begin
    a := 10;
    b := 1;
    c := 2;
    while a > 0 do
        begin
	    b := b * c;
	    c := c + b;
	    a := a - 1
	end
end