Программа на Паскаль, которая показывает возможности графики в Паскале, а именно рисования сердца на экране:

program gr;
uses crt,graph;
var driver,mode,error:integer;
l,n,m,x,y,r:integer;
begin
driver:=detect;
initgraph(driver,mode,”);
error:=graphresult;
if error<>grOk then
begin
writeln(’Ошибка графики: ‘,graphErrorMsg(error));
writeln(’Программа аварийно завершила работу…’);
halt(1);
end;
m:=1;l:=1;x:=1;y:=1;r:=1;n:=1;
repeat
x:=1;y:=1;r:=1;l:=1;
repeat
begin
setcolor(cyan);
arc(170-x,150,0,180,20+r);
arc(210+x,150,0,180,20+r);
line(150-2*x,150,190,200+y);
line(230+2*x,150,190,200+y);
floodfill(149,150,cyan);
x:=x+1;y:=y+1;r:=r+1;
delay(20);
clearviewport;
l:=l+1;
end;
until l=20;
x:=1;y:=1;r:=1;m:=1;
repeat
setcolor(cyan);
arc(150+x,150,0,180,40-r);
arc(230-x,150,0,180,40-r);
line(110+2*x,150,190,220-y);
line(270-2*x,150,190,220-y);
floodfill(149,150,cyan);
x:=x+1;y:=y+1;r:=r+1;m:=m+1;
delay(20);
clearviewport;
until m=20;
n:=n+1;
until n=20;
closegraph;
end.