Datorgrafika un attēlu apstrādes pamati. 5.mājas darbs

procedure TForm1.Button1Click(Sender: TObject);
var p0x,p0y,p1x,p1y,p2x,p2y,p3x,p3y,p4x,p4y,r:integer;
begin
r:=10;
p0x:=StrToInt(Edit1.Text);
p0y:=StrToInt(Edit2.Text);
p1x:=StrToInt(Edit3.Text);
p1y:=StrToInt(Edit4.Text);
p2x:=StrToInt(Edit5.Text);
p2y:=StrToInt(Edit6.Text);
p3x:=StrToInt(Edit7.Text);
p3y:=StrToInt(Edit8.Text);
p4x:=StrToInt(Edit9.Text);
p4y:=StrToInt(Edit10.Text);

BEZHE(p0x,p0y,p1x,p1y,p2x,p2y,p3x,p3y,p4x,p4y);
LINIJA(p0x,p0y,p1x,p1y);
LINIJA(p1x,p1y,p2x,p2y);
LINIJA(p2x,p2y,p3x,p3y);
LINIJA(p3x,p3y,p4x,p4y);
RINKIS(r,p0x,p0y);
RINKIS(r,p1x,p1y);
RINKIS(r,p2x,p2y);
RINKIS(r,p3x,p3y);
RINKIS(r,p4x,p4y);

end;
end.
…