Составьте программу, которая на весь экран рисует картинку «Звездное небо": на…

unit Unit1; interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Math, ExtCtrls; type TForm1=class (TForm) Button1: TButton; Image1: TImage; procedure Button1Click (Sender: TObject); procedure Image1Click (Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation{$R*.dfm}procedure TForm1.Button1Click (Sender: TObject); vara,x,y,r: Integer; begin Randomize; Image1.Picture: =nil; Image1.Canvas.Brush.Color: =clBlack; Image1.Canvas.Rectangle (0,0,Image1.Width,Image1.Height); Image1.Canvas.Brush.Color: =clWhite; for a: =1 to RandomRange (9,20) do begin x: =RandomRange (50,1000); r: =RandomRange (1,15); y: =RandomRange (50,550); Image1.canvas.Ellipse (x-r,y-r,x+r,y+r); end; end; procedure TForm1.Image1Click (Sender: TObject); beginend; end. На форме image и кнопка (если тебе нужна просто программа (как я думал изначально) напиши в почту, просто уважаемые админы удаляют мои посты)