Напишите блок-схему unit Unit1;{$mode objfpc}{$H+}interfaceusesClasses, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;type{ TForm1 }TForm1 = class(TForm)Edit1: TEdit;Edit2: TEdit;Edit3: TEdit;Edit4: TEdit;Edit5: TEdit;ENND: TButton;fon_win1: TImage;fon_win2: TImage;Image1: TImage;fon_win: TImage;Label1: TLabel;Label2: TLabel;priz1: TLabel;priz2: TLabel;priz3: TLabel;priz_1: TImage;viigrish: TLabel;priz_2: TImage;priz_3: TImage;Vse: TLabel;Veroyatnost: TLabel;one1: TImage;one2: TImage;one3: TImage;Vrashat: TButton;procedure ENNDClick(Sender: TObject);procedure Formunit Unit1;{$mode objfpc}{$H+}interfaceusesClasses, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;type{ TForm1 }TForm1 = class(TForm)Edit1: TEdit;Edit2: TEdit;Edit3: TEdit;Edit4: TEdit;Edit5: TEdit;ENND: TButton;fon_win1: TImage;fon_win2: TImage;Image1: TImage;fon_win: TImage;Label1: TLabel;Label2: TLabel;priz1: TLabel;priz2: TLabel;priz3: TLabel;priz_1: TImage;viigrish: TLabel;priz_2: TImage;priz_3: TImage;Vse: TLabel;Veroyatnost: TLabel;one1: TImage;one2: TImage;one3: TImage;Vrashat: TButton;procedure ENNDClick(Sender: TObject);procedure FormCreate(Sender: TObject);procedure Image2Click(Sender: TObject);procedure priz2Click(Sender: TObject);procedure VrashatClick(Sender: TObject);privatepublicend;varForm1: TForm1;S,K:integer;implementation{$R *. lfm}{ TForm1 }procedure TForm1. ENNDClick(Sender: TObject);beginclose;end;procedure TForm1. FormCreate(Sender: TObject);beginK:=0;S:=0;end;procedure TForm1. Image2Click(Sender: TObject);beginend;procedure TForm1. priz2Click(Sender: TObject);beginend;procedure TForm1. VrashatClick(Sender: TObject);vara,b,c:integer;z:real;beginbeginrandomize;a:=random(7)+1;b:=random(7)+1;c:=random(7)+1;case a of1:one1. Picture. LoadFromFile('image (1). png');2:one1. Picture. LoadFromFile('image (2). png');3:one1. Picture. LoadFromFile('image (3). png');4:one1. Picture. LoadFromFile('image (4). png');5:one1. Picture. LoadFromFile('image (5). png');6:one1. Picture. LoadFromFile('image (6). png');7:one1. Picture. LoadFromFile('image (7). png');end;case b of1:one2. Picture. LoadFromFile('image (1). png');2:one2. Picture. LoadFromFile('image (2). png');3:one2. Picture. LoadFromFile('image (3). png');4:one2. Picture. LoadFromFile('image (4). png');5:one2. Picture. LoadFromFile('image (5). png');6:one2. Picture. LoadFromFile('image (6). png');7:one2. Picture. LoadFromFile('image (7). png');end;case c of1:one3. Picture. LoadFromFile('image (1). png');2:one3. Picture. LoadFromFile('image (2). png');3:one3. Picture. LoadFromFile('image (3). png');4:one3. Picture. LoadFromFile('image (4). png');5:one3. Picture. LoadFromFile('image (5). png');6:one3. Picture. LoadFromFile('image (6). png');7:one3. Picture. LoadFromFile('image (7). png');end;end;if (a=b) and (b=c) and (a=c) thenbeginif (a=7) and (b=7) and (c=7) thenbeginPriz3. Visible:=true;Priz_3. Visible:=true;K:=K+1;z:=z+1;viigrish. Caption:=IntToStr(K);end;endelseif (a=b) or (b=c) or (a=c) thenbeginif (a=b) thenbeginif (a=7) and (b=7) thenbeginK:=K+1;z:=z+1;viigrish. Caption:=IntToStr(K);endelseif (a<>7) and (b<>7) thenbeginif (c=7) thenbeginPriz2. Visible:=true;Priz_2. Visible:=true;K:=K+1;z:=z+1;viigrish. Caption:=IntToStr(K);end;end;endelseif (b=c) thenbeginif (c=7) and (b=7) thenbeginPriz2. Visible:=true;Priz_2. Visible:=true;K:=K+1;z:=z+1;viigrish. Caption:=IntToStr(K);endelsebeginif (a=7) thenbeginPriz2. Visible:=true;Priz_2. Visible:=true;K:=K+1;z:=z+1;viigrish. Caption:=IntToStr(K);end;end;endelseif (a=c) thenbeginif (a=7) and (c=7) thenbeginPriz2. Visible:=true;Priz_2. Visible:=true;K:=K+1;z:=z+1;viigrish. Caption:=IntToStr(K);endelsebeginif (b=7) thenbeginPriz2. Visible:=true;Priz_2. Visible:=true;K:=K+1;z:=z+1;viigrish. Caption:=IntToStr(K);end;end;end;endelseif (a<>b) and (b<>c) thenbeginif (a=7) or (b=7) or (c=7) thenbeginif (a=7) thenbeginPriz1. Visible:=true;Priz_1. Visible:=true;K:=K+1;z:=z+1;viigrish. Caption:=IntToStr(K);end;if (b=7) thenbeginPriz1. Visible:=true;Priz_1. Visible:=true;K:=K+1;z:=z+1;viigrish. Caption:=IntToStr(K);end;if (c=7) thenbeginPriz1. Visible:=true;Priz_1. Visible:=true;K:=K+1;z:=z+1;viigrish. Caption:=IntToStr(K);end;end;end;if (a=7) thenbeginfon_win. Visible:=true;endelseif (a<>7) thenbeginfon_win. Visible:=false;end;if (b=7) thenbeginfon_win1. Visible:=true;endelseif (b<>7) thenbeginfon_win1. Visible:=false;end;if (c=7) thenbeginfon_win2. Visible:=true;endelseif (c<>7) thenbeginfon_win2. Visible:=false;end;S:=S+1;Vse. Caption:=IntToStr(S);if StrToInt(viigrish. caption)>0 thenbeginVeroyatnost. caption:=FormatFloat('0. 000',z/StrToFloat(Vse. caption)*100)+'%';end;end;end.