mod函数和div函数
program exam27;
var s,y,m,n:integer;
begin 
readln(m,n);
s:=m div n;
y:=m mod n;
writeln(‘shang:’,s);
writeln(‘yushu:’,y);
end.

program exam14;
var x:integer;
begin
readln(x);
if x>0 then writeln('zhengshu')
 else
 if x<0 then writeln('fushu')
 else writeln('0');
end.


program exam14;
var x:integer;
begin
readln(x);
if x>=0 then
 if x>0 then writeln('zhengshu')
 else writeln('0')
 else writeln('fushu');
end.

For循环中的复合语句
program exam30;
var i,a,b:integer;
begin
readln;
for i:=10 to 99 do
 begin
 a:= i div 10;
 b:= i mod 10;
 if a+b=12 then writeln(i);
 end;
writeln(‘Merry christmas!’);
 end.

program exam10;
var x:integer;
begin
readln(x);
if x>0 then writeln(‘zhengshu’)
 else writeln(‘fushu’);
end.

program exam4;
var a:integer;
begin
readln(a);
writeln(1111);
writeln(111:4);
writeln(11:4);
writeln(1:4);
end.
1111
 111
 11
 1

program exam19;
var i,s:integer;
begin 
readln;
s:=0;
for i:=1 to 100 do
s:=s+i;
write(s:5);
end.

i （计数） 加法 S（存放加法后的结果）
1 s=s+i 1
2 s=s+i 3
3 s=s+i 6
4 s=s+i 10
5 s=s+i 15
6 s=s+i 21
7 s=s+i 28
8 s=s+i 36
9 s=s+i 45
10 s=s+i 55
11 s=s+i 66
12 s=s+i 78
13 s=s+i 91
14 s=s+i 105
15 s=s+i 120
16 s=s+i 136
……………… ……………… ………………
100 s=s+i 5050
停止计数 停止加法