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

Text File | 2005-10-24 | 218b | 13 lines

(* This is a test of simple loop. *)

program is
    var i : integer := 0;
begin
    write("a simple loop:");
        loop
      write("i = ", i);
          i := i + 1;
          if i > 5 then exit; end;
        end;
end;