Programmas kods
procedure TForm1.Brezenhem(x1,y1,x2,y2: integer);
var x,y,dx,dy,xs,ys,p,i: integer;
begin
x:=x1;
y:=y1;
dx:=abs(x2-x1);
dy:=abs(y2-y1);
if x2>x1 then xs:=1 else xs:=-1 ;
if y2>y1 then ys:=1 else ys:=-1;
//algoritms
if dx>dy then
begin
//1.solis
p:=2*dy-dx ;
//2.solis
for i:=1 to dx do…
