home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / pascalw.exe / CASE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-08-07  |  267 b   |  18 lines
  1. program cases(input, output);
  2. var
  3.    i : integer;
  4.  
  5. begin
  6.    repeat
  7.       write( 'Enter an integer, 0 to end : ' );
  8.       readln(i);
  9.       case i of
  10.         0:;
  11.         1:i:=i*2;
  12.     2:i:=i*3;
  13.     3:i:=i*4;
  14.       end;
  15.       writeln(i);
  16.    until i = 0;
  17. end.
  18.