ftp.ee.pdx.edu/2014.02.ftp.ee.pdx.edu.tar/ftp.ee.pdx.edu/pub/users/Harry/compilers/p3/tst/stat4.pcat

Text File | 2005-10-24 | 192b | 12 lines

(* this is a test of while loop. *)

program is
    var i : integer := 0;
begin
    write("a while loop:");
        while i <= 5 do
      write("i = ", i);
          i := i + 1;
        end;
end;