{* Задача 325 *}

Unit ZADACH325;
Interface
Implementation
Begin
 writeln('Найти площадь той части окружности, которая осталась после удаления из нее заданной вписанной окружности');
End.

Program pas13561;

Uses zadach325.pas; {* Эту строку можно удалить *}
unit Unit1;
interface
Uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,    Dialogs, Series, Teengine, stdctrls, extctrls, teeprocs, chart, teeshape, math, bubblech, comctrls, buttons; {* Вызов внешних функций *}
Const {* Предопределенные *}
  Pi = 3.14;
Type {* Типы переменных *}
  TForm1 = class(TForm)      Panel1 : TPanel;
  Button1 : TButton;
  Button2 : TButton;
  Button3 : TButton;
  Chart1 : TChart;
  Series1 : TLineSeries;
  Series2 : TLineSeries;
  Series3 : TLineSeries;
  Series4 : TLineSeries;
  Series5 : TLineSeries;
  Series6 : TLineSeries;
  Series7 : TPointSeries;
  Label1 : TLabel;
  Label2 : TLabel;
  Label4 : TLabel;
  Edit1 : TEdit;
  Edit2 : TEdit;
  Label5 : TLabel;
  Label6 : TLabel;
  Bevel1 : TBevel;
  Edit3 : TEdit;
Procedure Button1Click(Sender : TObject);
Procedure Button2Click(Sender : TObject);
Procedure Button3Click(Sender : TObject);
Procedure Ploshad;
Procedure Edit1KeyPress(Sender : TObject;
Var {* В работе нам потребуются переменные: *}
  Key                            : Char);
Procedure Edit2KeyPress(Sender : TObject;
Var {* Необходимые переменные *}
  Key : Char); { Private declarations }
  { Public declarations }
Var {* Необходимые переменные *}
  Form1                                : TForm1; {$R *.dfm}
Procedure TForm1.Button1Click(Sender : TObject);
Var {* В работе нам потребуются переменные: *}
  i : integer;
Var {* Объявление переменных *}
  x : real;
  y : real;
  l : real;
  k : real;
Var {* Необходимые переменные *}
  N_str : String;
Var {* В работе нам потребуются переменные: *}
  totalCountPoint                       : integer;
  Begin
  Button3.Enabled := true;
For i := - 2000 To 2000 Do
  Begin
x;
y := sqrt(4 - sqr(x));
For i := - 2000 To 2000 Do
  Begin
x;
y := - sqrt(4 - sqr(x));
For i := - 1000 To 1000 Do
  Begin
l;
k := sqrt(1 - sqr(l));
For i := - 1000 To 1000 Do
  Begin
l;
k := - sqrt(1 - sqr(l));
Begin
totalCountPoint := 20000;
For i := 1 To totalcountpoint Do; {* Увеличиваем i от 1 до totalcountpoint с шагом 1 *}
  y := 4 * random - 2;
Procedure TForm1.Edit1KeyPress(Sender : TObject;
Var {* Необходимые переменные *}
  Key                                   : Char);
  key := #0;
Procedure TForm1.Edit2KeyPress(Sender : TObject;
Var {* Объявление переменных *}
  Key : Char);
  Begin
If key In [#8, ', ', '-', '0'..'9'] Then
  exit;
key := #0;
End;

End...