casetest.pas

袖珍pascal编译器,适用语言VC & C++ Visual Basic

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.