pascal语言是我们计算机专业都要学习的一门基础学科。
一般来说，是比较枯燥的。
那么，我们能不能通过编一些小游戏来提高它的趣味性呢?
请看下面一个赛马的pascal小程序   

uses crt;
var a:array[1..3] of integer;
i,j,d:integer;
stop:boolean;
begin clrscr;
stop:=false;
for i:=1 to 3 do a[i]:=1;
randomize;
while not stop do begin for i:=1 to 3 do begin gotoxy(a[i],i);
write(' ');
d:=random(3);
inc(a[i],d);
if a[i]>=80 then begin a[i]:=80;
stop:=true end;
gotoxy(a[i],i);
write('*');
end;
for i:=1 to 10000 do for j:=1 to 1000 do;
end;
readln end.

这是随机函数的一个小小的应用，有兴趣的话可修改程序，加强功能。