home *** CD-ROM | disk | FTP | other *** search
/ Windows Shareware GOLD / NuclearComputingVol3No1.cdr / _bbs1 / f1243.zip / CASE.PAS < prev    next >
Pascal/Delphi Source File  |  1990-08-07  |  267b  |  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.