var a，b:longint；
開始
writeln('請輸入兩個數字')；
readln(a，b)；
writeln(a，'+'，b，' = '，a+b)；
writeln(a，' * '，b，' = '，a * b)；
readln
結束。
2.
開始
writeln(' * * * * * * * * * * * * * * * * * * * * * * *)；
writeln(* * * *不客氣！****');
writeln(' * * * * * * * * * * * * * * * * * * * * * * *)；
readln
結束。
3.
var a:longint；
開始
readln(a)；
如果a & lt=20則writeln(10)否則writeln(10+(a-20)* 0.8)；
readln
結束。
4.
var a:longint；
開始
readln(a)；
if ((a mod 2)=0)然後writeln('YES ')否則writeln(' NO ')；
readln
結束。
5.
var n:longint；
開始
readln(n)；
如果n & lt=10然後writeln(n*0.8)否則writeln(n * 0.8 * 0.75)；
readln
結束。
6.
var n，I，s:longint；
開始
s:= 0；
對於i:=1到n do
s:= s+I；
書寫內容；
readln
結束。
7.
var I:longint；
開始
for i:=1到50 do writeln(2 * I-1)；
readln
結束。
8.
var x，y，z:longint；
開始
對於x:=1到(500格10) do
對於y:=1到(500 div 5) do
開始
z:= 90-x-y；
if((x * 10+y * 5+z * 15)= 500)那麽writeln(x，' '，y，' '，z)；
結束；
readln
結束。