二题Pascal入门程序编写改错题,很简单,大家帮忙看看.

1.划分出下面程序的程序首部，程序名，说明部分，执行部分，并说出它的功能？
Program A1;
Var
n,a,b,c:Integer;
Begin
n:=2087;
a:=n mod 10;
b:=n div 10 mod 10;
c:=n div 100;
Writeln('a=',a);
Writeln('b=',b);
Writeln('c=',c);
End.

2.观察下面程序,调出程序中的编写错误并直接改在题上,改正后试说说它的功能.
Program A2;
Var
n,m,r:Integer;
Begin
n:=100;
m:=200;
r:=n;
n:=m;
m:=r;
Writeln(n:5,m:5);
End.

1.划分出下面程序的程序首部，程序名，说明部分，执行部分，并说出它的功能？

首部：
Program A1;

数目部分：
Var
n,a,b,c:Integer;

执行部分：
Begin
n:=2087;
a:=n mod 10;
b:=n div 10 mod 10;
c:=n div 100;
Writeln('a=',a);
Writeln('b=',b);
Writeln('c=',c);
End.

没有什么实质的功能，就是计算了一个数（n）的个位（a）、十位（b）、和整除100的商（c）。
（功能太无聊了，我实在没办法组织语言，你随便说吧）

2.观察下面程序,调出程序中的编写错误并直接改在题上,改正后试说说它的功能.
Program A2;
Var
n,m,r:Integer;
Begin
n:=100;
m:=200;
r:=n;
n:=m;
m:=r;
Writeln(n:5,m:5);
End.

答：程序没有任何错误，输出结果是200 100，演示了交换两个变量的值（这大概就是所谓的功能吧）。

程序名：
Program A1;

定义部分：
Var
n,a,b,c:Integer;

主程序：
Begin
n:=2087;
a:=n mod 10;
b:=n div 10 mod 10;
c:=n div 100;
Writeln('a=',a);
Writeln('b=',b);
Writeln('c=',c);
End.