program tt;
var a,b:integer;
begin
write('please input a,b:');
readln(a,b);
if a>b then writeln(a)
else writeln(b);
end.
例2： 某全自動加油站a,b,c三種汽油的單價(元/kg)分別是1.50、1.35和1.18，也提供了“自己加”或“協助加”兩個服務等級，這樣用戶可以得到5%或10%的優惠。編壹個程序，用戶輸入加油量、汽油品種和服務類型(f-自動，m-自己，e-協助)，然後計算應付款。
program pcase1;
var
oil,help:char;
kg,total:real;
begin
write('Enter the amount in kilograms(kg):'); readln(kg);
write('Which type of the gasoline(a,b,c):'); readln(oil);
wirte('Which type for service(f,m,e):'); readln(help);
case oil of
'a': total:=1.50*kg;
'b': total:=1.35*kg;
'c': total:=1.18*kg;
else writeln('Input Error!')
end;
{——————處理汽油的類型}
case help of
'f':;
'm': total:=total*(1-0.05);
'e': total:=total*(1-0.10);
else writeln('Input Error!')
end;
{——————處理服務類型}
writeln;
writeln('Total is ',total:10:2);
end.
例3：從鍵盤上讀入年和月，輸出該月有多少天。
program pcase2;
var
year,month,day:integer;
runnian:boolean;
begin
write('Enter year and month:'); readln(year,month);
case month of
1,3,5,7,8,10,12: day:=31;
4,6,9,11: day:=30;{————以上處理31天和30天的情況}
2:begin
runnian:=(year mod 400=0) or ((year mod 4=0) and (year mod 100<>0));
case runnian of
true: day:=28;
false: day:=29;
end;
end; {————以上處理2月的情況：閏年28天，平年29天}
end;
end.
思考與練習：
1、從鍵盤上讀入長方形的邊長a,b，計算它的面積和周長，輸出。
2、 輸入壹個時、分、秒，把它轉換為壹個秒數。
3、 從鍵盤讀入壹個數，判斷它的正負。是正數，則輸出"+"，是負數，則輸出"-"。
4、 輸入兩個數a,b，輸出較大數的平方值。
5、 鐵路托運行李規定：行李重不超過50公斤的，托運費按每公斤0.15元計費；如超50公斤，超過部分每公斤加收0.10元。編壹程序完成自動計費工作。
6、 某超市為了促銷，規定：購物不足50元的按原價付款，超過50不足100的按九折付款，超過100元的，超過部分按八折付款。編壹程序完成超市的自動計費的工作。
7、 輸入a,b,c三個不同的數，將它們按由小到大的順序輸出。 13、 當前小學生的成績單由以前的百分制改為優秀、良好、合格、不合格四個等級的等級制。編壹程序完成分數的自動轉換工作。轉換規則如下：60分以下的為不合格；60到69分為合格；70到89分為良好；90分以上的為優秀。（提示：可以利用DIV運算來使程序更簡明）
8、 打印某年某月有多少天。（提示：A、閏年的計算方法：年數能被4整除，並且不能被100整除；或者能被400整除的整數年份。B、利用MOD運算可以判斷壹個數能否被另壹個數整除）
9、編程模擬剪刀、石頭、布遊戲：用S表示剪刀，用R表示石頭，用P表示布。規則是：剪刀剪布，石頭砸剪刀，布包石頭。遊戲者分別把自己的選擇輸入，計算機給出結果。