Объяснить программу

uses crt,graph;
type point=record
           x,y:longint;
           end;
procedure Okr(a,b,c:Point;var o:Point;r:integer);
var ab,ac:Point;
    a1,b1,a2,b2,c1,c2:real;
begin
{середины сторон}
ab.x:=(a.x+b.x) div 2;
ab.y:=(a.y+b.y) div 2;
ac.x:=(a.x+c.x) div 2;
ac.y:=(a.y+c.y) div 2;
{координаты центра через уравнения прямых}
a1:=b.x-a.x;
b1:=b.y-a.y;
c1:=ab.x*(b.x-a.x)+ab.y*(b.y-a.y);
a2:=c.x-a.x;
b2:=c.y-a.y;
c2:=ac.x*(c.x-a.x)+ac.y*(c.y-a.y);
o.x:=round((c1*b2-c2*b1)/(a1*b2-a2*b1));
o.y:=round((a1*c2-a2*c1)/(a1*b2-a2*b1));
r:=round(sqrt(sqr(a.x-o.x)+sqr(a.y-o.y)));{радиус}
{рисуем окружность}
setcolor(12);
circle(o.x,o.y,r);
end;
var d,m,a,b,u:integer;{длины оснований и угол}
    t1,t2,t3,t4,o:point;
    xc,yc,r:integer;
begin
clrscr;
repeat
write('Bolshee osnovanie ot 100 do 200 a=');
readln(a);
until a in [100..200];
repeat
write('Menshee osnovanie ot 10 do ',a-20,' b=');
readln(b);
until b in [10..a-20];
repeat
write('Udol pri osnovanii ot 10 do 80 gradusov u=');
readln(u);
until u in [10..80];
initgraph(d,m,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
{трапеция}
t1.x:=xc-a div 2;t1.y:=yc;
t4.x:=xc+a div 2;t4.y:=yc;
t2.x:=xc-b div 2;t2.y:=yc-round((a-b)*sin(u*pi/180)/(2*cos(u*pi/180)));
t3.x:=xc+b div 2;t3.y:=t2.y;
line(t1.x,t1.y,t2.x,t2.y);
line(t2.x,t2.y,t3.x,t3.y);
line(t3.x,t3.y,t4.x,t4.y);
line(t1.x,t1.y,t4.x,t4.y);
Okr(t1,t2,t3,o,r);{окружность}
readln
end.