请帮忙写一段pascal程序让我看看结构简单不

program p1000;
var a,b:integer;
begin
readln(a,b);
writeln(a+b);
end.

求两个数的和

procedure kuaipai(l,r:longint);
var i,j,m,t:longint;
begin
i:=l; j:=r;
m:=b[l];
repeat
while b[i]<m do inc(i);
while b[j]>m do dec(j);
if i<=j then
begin
t:=b[i]; b[i]:=b[j]; b[j]:=t;
inc(i); dec(j);
end;
until i>j;
if i<r then kuaipai(i,r);
if j>l then kuaipai(l,j);
end;
快排的程序

begin
writeln('555');
end.

program BT;(程序的小名，不写也罢）
var
a,b:integer;(弄两个叫a,b的变量，变量类型是integer,
别人帮你搞好了，指的是-32767至32768的数）
begin（开始）
writeln（'input a,b');(在屏幕上显示'input,a,b',);
readln(a,b);(把如入的两个数赋给a,b的值）；
writeln（a+b）；（显示出a+b是多少）
readln;(让程序暂停一下，好让你看清楚a+b是多少,);
end.(完了，搞定）

输入：5 9
输出：14
结构够简单吧

var a:longint;
begin
readln(a);