假设有杯子a(内盛可乐)，杯子b（内盛白水），杯子c（空），请用程序描述a、b两个杯子中所盛物质交换的过程。

题目：

（已知a，b两个正整数，要求，应用三个数交换的原理，把a，b值互换并输出）。

知识点：

pascal程序的结构（整体上了解），p43

数据类型：integer、real，p34~35

变量定义：var，p37

赋值语句：:= ，p46~47

输入输出语句：read、readln、write、writeln、单场宽、双场宽，p48~53

代码：

 1 program shen1;
 2 
 3 var a,b,c:integer;
 4 BEGIN
 5   read(a,b);
 6   write('a=',a,' b=',b);
 7   c:=a;
 8   a:=b;
 9   b:=c;
10   write('a=',a,' b=',b);
11 END.