casetest.pas

来自「袖珍型的pascal编译器」· PAS 代码 · 共 29 行

program casetest;

const pula= 10;

var x:integer;
	c:char;
	
procedure number(i: integer);
begin
print (i);
case i of
1,2,3: print("1 or 2");
3: print ("3");
4: print ("four");
5,6,7: print ("5 or 6 or 7")
otherwise
print ("I don't know")
end;
end;



{Programm beginning}
begin
print("X=");
read(x);
number(x);
read(c);
end.