home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BPAS9.ZIP / WHILELUP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-04-29  |  167 b   |  12 lines
  1. program Hello;
  2. var
  3.   Count  : integer;
  4. begin
  5.   Count  := 1;
  6.   while Count <= 100 do
  7.   begin
  8.     Writeln(Count);
  9.     Inc(Count)
  10.   end;
  11.   Writeln('End')
  12. end.