Пример графической программы на Паскале, которая выводит маятник:

program mat_mayat;
uses crt,graph;
var graphdriver,graphmode,errorcode:integer;
v,n,l,k,i,m:integer;
r,j:real;
begin
graphdriver:=detect;
initgraph(graphdriver,graphmode,”);
errorcode:=graphresult;
if errorcode<>grOk then
begin
writeln(’Ошибка графики: ‘,graphErrorMsg(errorcode));
writeln(’Программа аварийно завершила работу…’);
halt(1);
end;
for n:=0 to 5 do begin
for i:=0 to 70 do begin
j:=sqrt(6400-sqr(30-i));
k:=round(j);
setcolor(cyan);
line(i+100,k+100,135,13);
circle(i+100,k+100,20);
floodfill(i+101,k+101,cyan);
delay(20);
cleardevice;
end;
for l:=0 to 70 do begin
m:=abs(l-70);
r:=sqrt(6400-sqr(30-m));
v:=round(r);
setcolor(cyan);
line(m+100,v+100,135,13);
circle(m+100,v+100,20);
floodfill(m+101,v+101,cyan);
delay(20);
cleardevice;
end;
n:=n+1;
end;
closegraph;
end.