п▓я▀ - -п╧ п©п╬я│п╣я┌п╦я┌п╣п╩я▄ я█я┌п╬п╧ я│я┌я─п╟п╫п╦я┤п╨п╦ 

п╖п╣я┌я▀я─п╣ п╥п╟п╫я▐я┌п╦я▐ п©п╬ п·п·п÷
                                                           п⌠.п². п⌠я┐я┌п╪п╟п╫, пЁ.п║п╟п╪п╟я─п╟

п▓п╡п╣п╢п╣п╫п╦п╣ п╢п╩я▐ я┐я┤п╦я┌п╣п╩я▐

    п■п╩я▐ п©п╬п╫п╦п╪п╟п╫п╦я▐ п╦п╥п╩п╬п╤п╣п╫п╫п╬пЁп╬ п╡ я│я┌п╟я┌я▄п╣ п╪п╟я┌п╣я─п╦п╟п╩п╟ п╫п╣п╬п╠я┘п╬п╢п╦п╪п╬ п╦п╪п╣я┌я▄ п╬п©я▀я┌ я─п╟п╠п╬я┌я▀ я│ я┌п╦п©п╬п╪ п╥п╟п©п╦я│я▄ п╡ п÷п╟я│п╨п╟п╩п╣ я┌п╟п╨ п╨п╟п╨ п╟п╫п╟п╩п╬пЁ я█я┌п╬п╧ я│я┌я─я┐п╨я┌я┐я─я▀ п╟п╨я┌п╦п╡п╫п╬ п╦я│п©п╬п╩я▄п╥я┐п╣я┌я│я▐ п╡ п╬п╠я┼п╣п╨я┌п╫п╬-п╬я─п╦п╣п╫я┌п╦я─п╬п╡п╟п╫п╫п╬п╪ п©я─п╬пЁя─п╟п╪п╪п╦я─п╬п╡п╟п╫п╦п╦. п■п╩я▐ п╡я▀п©п╬п╩п╫п╣п╫п╦я▐ п©я─п╣п╢п╩п╬п╤п╣п╫п╫я▀я┘ п╡ я│я┌п╟я┌я▄п╣ п©я─п╬п╣п╨я┌п╬п╡ п╤п╣п╩п╟я┌п╣п╩я▄п╫п╬ я┐п╪п╣я┌я▄ я│п╬п╥п╢п╟п╡п╟я┌я▄ п╪п╫п╬пЁп╬п╪п╬п╢я┐п╩я▄п╫я▀п╣ п©я─п╬пЁя─п╟п╪п╪я▀, п╦я│п©п╬п╩я▄п╥п╬п╡п╟я┌я▄ п╡ п©я─п╬пЁя─п╟п╪п╪п╟я┘ п╪я▀я┬я▄, п╨п╫п╬п©п╬я┤п╫я▀п╣ п╪п╣п╫я▌ п╦ я┌.п╢. [1, 2].
    п°п╟я┌п╣я─п╦п╟п╩ я│я┌п╟я┌я▄п╦ я─п╟п╥п╠п╦я┌ п╫п╟ я┤п╣я┌я▀я─п╣ п╥п╟п╫я▐я┌п╦я▐, п╨п╟п╤п╢п╬п╣ п╦п╥ п╨п╬я┌п╬я─я▀я┘, п╬п╢п╫п╟п╨п╬, п╪п╬п╤п╣я┌ п©п╬я┌я─п╣п╠п╬п╡п╟я┌я▄ п╬я┌ п╢п╡я┐я┘ п╢п╬ я┤п╣я┌я▀я─п╣я┘ п╬п╠я▀я┤п╫я▀я┘ я┐я─п╬п╨п╬п╡. п╜я┌п╬ п╡я─п╣п╪я▐ п╠я┐п╢п╣я┌ п©п╬я┌я─п╟я┤п╣п╫п╬ п╫п╣ п╥я─я▐, п╣я│п╩п╦ п╫п╟ п╬я│п╫п╬п╡п╣ я─п╟п╥я─п╟п╠п╬я┌п╟п╫п╫п╬пЁп╬ п╫п╟п╠п╬я─п╟ п╬п╠я┼п╣п╨я┌п╬п╡ я│п╬п╥п╢п╟п╣я┌я│я▐ я│я─п╟п╥я┐ п╫п╣я│п╨п╬п╩я▄п╨п╬ п©я─п╬пЁя─п╟п╪п╪, п╫п╟п©я─п╦п╪п╣я─, п©п╬я│п╩п╣ я─п╟п╥п╠п╬я─п╟ п©я─п╦п╪п╣я─п╟-п©я─п╬п╣п╨я┌п╟ "п≤пЁя─п╟ "15" я─п╣п╨п╬п╪п╣п╫п╢я┐п╣я┌я│я▐ п©я─п╣п╢п╩п╬п╤п╦я┌я▄ п╨п╟п╤п╢п╬п╧ пЁя─я┐п©п©п╣ я┐я┤п╣п╫п╦п╨п╬п╡ я─п╟п╥я─п╟п╠п╬я┌п╨я┐ п╬п╢п╫п╬пЁп╬ п╦п╥ п©я─п╣п╢п╩п╬п╤п╣п╫п╫я▀я┘ п╡ п╥п╟п╢п╟п╫п╦п╦ п©я─п╬п╣п╨я┌п╬п╡. п▓ я█я┌п╬п╪ я│п╩я┐я┤п╟п╣ п╩п╣пЁп╨п╬ п╬я─пЁп╟п╫п╦п╥п╬п╡п╟я┌я▄ п©п╣я─п╣п╨я─п╣я│я┌п╫п╬п╣ я┌п╣я│я┌п╦я─п╬п╡п╟п╫п╦п╣ п╦ п╬п╠я│я┐п╤п╢п╣п╫п╦п╣ я─п╟п╠п╬я┌ п╦ п╡ п╥п╟п╡п╣я─я┬п╣п╫п╦п╣ Б─■ п╥п╟я┴п╦я┌я┐ п©я─п╬п╣п╨я┌п╬п╡.

п≈п╟п╫я▐я┌п╦п╣ 1. п≤п╫п╨п╟п©я│я┐п╩я▐я├п╦я▐

    п■п╬ я│п╦я┘ п©п╬я─, я│п╬я│я┌п╟п╡п╩я▐я▐ я│п╩п╬п╤п╫я▀п╣ п©я─п╬пЁя─п╟п╪п╪я▀ п╫п╟ п÷п╟я│п╨п╟п╩п╣, п╪я▀ п╬я│я┌п╟п╡п╟п╩п╦я│я▄ п╡ я─п╟п╪п╨п╟я┘ п©я─п╬я├п╣п╢я┐я─п╫п╬пЁп╬ п©п╬п╢я┘п╬п╢п╟. п·я│п╫п╬п╡п╫п╟я▐ п╥п╟п╢п╟я┤п╟ я─п╟п╥п╠п╦п╡п╟п╩п╟я│я▄ п╫п╟ я─я▐п╢ п╠п╬п╩п╣п╣ п©я─п╬я│я┌я▀я┘ п╥п╟п╢п╟я┤, п╨п╟п╤п╢п╟я▐ п╦п╥ п╨п╬я┌п╬я─я▀я┘ п╪п╬пЁп╩п╟ п╠я▀я┌я▄ п╬я└п╬я─п╪п╩п╣п╫п╟ п╡ п╡п╦п╢п╣ п╬я┌п╢п╣п╩я▄п╫п╬п╧ п©я─п╬я├п╣п╢я┐я─я▀ п╦п╩п╦ я└я┐п╫п╨я├п╦п╧. п÷я─п╦ я█я┌п╬п╪ п©п╬п╢я┘п╬п╢п╣ п╠п╬п╩я▄я┬п╣ п╡п╫п╦п╪п╟п╫п╦я▐ я┐п╢п╣п╩я▐п╣я┌я│я▐ я─п╟п╥я─п╟п╠п╬я┌п╨п╣ п╟п╩пЁп╬я─п╦я┌п╪п╟ п╦ я│я┐я┴п╣я│я┌п╡п╣п╫п╫п╬ п╪п╣п╫я▄я┬п╣ Б─■ п╦я│п©п╬п╩я▄п╥я┐п╣п╪я▀п╪ я│я┌я─я┐п╨я┌я┐я─п╟п╪ п╢п╟п╫п╫я▀я┘.
    п▓ п╫п╟я│я┌п╬я▐я┴п╣п╣ п╡я─п╣п╪я▐ п╢п╩я▐ я─п╟п╥я─п╟п╠п╬я┌п╨п╦ я│п╩п╬п╤п╫я▀я┘ п©я─п╬пЁя─п╟п╪п╪ п╡я│п╣ п╠п╬п╩я▄я┬п╣ п©я─п╦п╪п╣п╫я▐п╣я┌я│я▐ п╬п╠я┼п╣п╨я┌п╫п╬-п╬я─п╦п╣п╫я┌п╦я─п╬п╡п╟п╫п╫я▀п╧ п©п╬п╢я┘п╬п╢. п·я│п╫п╬п╡п╫п╟я▐ п╣пЁп╬ п╦п╢п╣я▐ Б─■ п╬п╠я┼п╣п╢п╦п╫п╣п╫п╦п╣ п╢п╟п╫п╫я▀я┘ п╦ п╟п╩пЁп╬я─п╦я┌п╪п╬п╡ п╦я┘ п╬п╠я─п╟п╠п╬я┌п╨п╦ п╡ п╣п╢п╦п╫п╬п╣ я├п╣п╩п╬п╣ Б─■ п╬п╠я┼п╣п╨я┌. п·п╠я┼п╣п╨я┌ п╦п╪п╣п╣я┌ я│п╬я│я┌п╬я▐п╫п╦п╣ (п╫п╟п©я─п╦п╪п╣я─, я─п╟п╥п╪п╣я─, я├п╡п╣я┌ п╦ я┌.п╢.) п╦ п╪п╣я┌п╬п╢я▀ (п╢п╣п╧я│я┌п╡п╦я▐, п╫п╟ п╨п╬я┌п╬я─я▀п╣ я│п©п╬я│п╬п╠п╣п╫ п╬п╠я┼п╣п╨я┌). п╖я┌п╬п╠я▀ п╥п╟я│я┌п╟п╡п╦я┌я▄ п╬п╠я┼п╣п╨я┌ я┤я┌п╬-я┌п╬ я│п╢п╣п╩п╟я┌я▄, п╫я┐п╤п╫п╬ п©п╬я│п╩п╟я┌я▄ п╣п╪я┐ я│п╬п╬я┌п╡п╣я┌я│я┌п╡я┐я▌я┴п╣п╣ я│п╬п╬п╠я┴п╣п╫п╦п╣.
    п▓ п╒я┐я─п╠п╬ п÷п╟я│п╨п╟п╩п╣ п╬п╠я┼п╣п╨я┌ Б─■ я█я┌п╬ п╬я│п╬п╠я▀п╧ я┌п╦п© п╢п╟п╫п╫я▀я┘, п╟ я█п╨п╥п╣п╪п©п╩я▐я─я▀ п╬п╠я┼п╣п╨я┌п╟ Б─■ п©п╣я─п╣п╪п╣п╫п╫я▀п╣ я█я┌п╬пЁп╬ я┌п╦п©п╟. п║п╬я│я┌п╬я▐п╫п╦п╣ п╬п╠я┼п╣п╨я┌п╟ я┘п╟я─п╟п╨я┌п╣я─п╦п╥я┐п╣я┌я│я▐ п╥п╫п╟я┤п╣п╫п╦я▐п╪п╦ п©п╬п╩п╣п╧; п╪п╣я┌п╬п╢я▀ п╬п╠я┼п╣п╨я┌п╟ Б─■ я│п╡я▐п╥п╟п╫п╫я▀п╣ я│ п╫п╦п╪ п©я─п╬я├п╣п╢я┐я─я▀ п╦ я└я┐п╫п╨я├п╦п╦, п╨п╬я┌п╬я─я▀п╪ п╢п╬я│я┌я┐п©п╫я▀ п©п╬п╩я▐. п÷п╣я─п╣п╢п╟я┤п╟ я│п╬п╬п╠я┴п╣п╫п╦п╧ я█п╨п╥п╣п╪п©п╩я▐я─я┐ п╬п╠я┼п╣п╨я┌п╟ п©я─п╬п╦я│я┘п╬п╢п╦я┌ п╡ п╡п╦п╢п╣ п╡я▀п╥п╬п╡п╬п╡ п╣пЁп╬ п╪п╣я┌п╬п╢п╬п╡ я│ п╥п╟п╢п╟п╫п╫я▀п╪п╦ п©п╟я─п╟п╪п╣я┌я─п╟п╪п╦.
    п≤п╫п╨п╟п©я│я┐п╩я▐я├п╦я▐ Б─■ я█я┌п╬ п╬п╠я┼п╣п╢п╦п╫п╣п╫п╦п╣ п╬п©п╦я│п╟п╫п╦п╧ я│я┌я─я┐п╨я┌я┐я─я▀ п╢п╟п╫п╫я▀я┘ я│ п©я─п╬я├п╣п╢я┐я─п╟п╪п╦ п╦ я└я┐п╫п╨я├п╦я▐п╪п╦, я─п╟п╠п╬я┌п╟я▌я┴п╦п╪п╦ я│ п©п╬п╩я▐п╪п╦ я█я┌п╬п╧ я│я┌я─я┐п╨я┌я┐я─я▀, п╨п╬я┌п╬я─п╬п╣ я└п╬я─п╪п╦я─я┐п╣я┌ п╫п╬п╡я▀п╧ я┌п╦п© п╢п╟п╫п╫я▀я┘ Б─■ п╬п╠я┼п╣п╨я┌.
    п÷я─п╦ я█я┌п╬п╪ п╢п╟п╫п╫я▀п╣ п╬п╢п╫п╬пЁп╬ п╬п╠я┼п╣п╨я┌п╟ п╫п╣п╢п╬я│я┌я┐п©п╫я▀ п╪п╣я┌п╬п╢п╟п╪ п╢я─я┐пЁп╬пЁп╬ п╬п╠я┼п╣п╨я┌п╟, п╣я│п╩п╦ я█я┌п╦ п╬п╠я┼п╣п╨я┌я▀ п╫п╣ я│п╡я▐п╥п╟п╫я▀ п╢я─я┐пЁ я│ п╢я─я┐пЁп╬п╪.
    п÷я─п╬п╦п╩п╩я▌я│я┌я─п╦я─я┐п╣п╪ я│п╨п╟п╥п╟п╫п╫п╬п╣ я─п╦я│я┐п╫п╨п╬п╪.
                                           

    п║п╦п╫я┌п╟п╨я│п╦я│ п╬п©п╦я│п╟п╫п╦я▐ п╬п╠я┼п╣п╨я┌п╫п╬пЁп╬ я┌п╦п©п╟ п╡ п÷п╟я│п╨п╟п╩п╣:

tя┐я─п╣ п╦п╪я▐_я┌п╦п©п╟ = objeя│t
п╬п╠я┼я▐п╡п╩п╣п╫п╦п╣ п╢п╟п╫п╫я▀я┘
п╬п╠я┼я▐п╡п╩п╣п╫п╦п╣ п╪п╣я┌п╬п╢п╬п╡
end;

    п⌡п╣пЁп╨п╬ п╡п╦п╢п╣я┌я▄, я┤я┌п╬ п╬п©п╦я│п╟п╫п╦п╣ п╬п╠я┼п╣п╨я┌п╫п╬пЁп╬ я┌п╦п©п╟ п©п╬я┘п╬п╤п╣ п╫п╟ п╬п©п╦я│п╟п╫п╦п╣ п╥п╟п©п╦я│п╦, я┌п╬п╩я▄п╨п╬ п╥п╢п╣я│я▄ п╢п╬п╠п╟п╡п╩п╣п╫я▀ п╬п╠я┼я▐п╡п╩п╣п╫п╦я▐ п╪п╣я┌п╬п╢п╬п╡, я┌.п╣. п©я─п╬я├п╣п╢я┐я─ п╦ я└я┐п╫п╨я├п╦п╧ п╢п╩я▐ я─п╟п╠п╬я┌я▀ я│ п╢п╟п╫п╫я▀п╪п╦ п╬п╠я┼п╣п╨я┌п╟. п·п╢п╫п╟п╨п╬ п╬п╠я┼я▐п╡п╩п╣п╫п╦п╣ п╪п╣я┌п╬п╢п╟ я▐п╡п╩я▐п╣я┌я│я▐ я└п╟п╨я┌п╦я┤п╣я│п╨п╦ п╣пЁп╬ п╥п╟пЁп╬п╩п╬п╡п╨п╬п╪, п╬п©п╦я│п╟п╫п╦я▐ п╪п╣я┌п╬п╢п╬п╡ я─п╟я│п©п╬п╩п╟пЁп╟я▌я┌я│я▐ п╡п╫п╣ п╠п╩п╬п╨п╟ type. п÷я─п╦ я█я┌п╬п╪ п╦п╪я▐ п╪п╣я┌п╬п╢п╟ я─п╟я│я│п╪п╟я┌я─п╦п╡п╟п╣я┌я│я▐ п╨п╟п╨ п©п╬п╩п╣ п╬п╠я┼п╣п╨я┌п╫п╬пЁп╬ я┌п╦п©п╟, п©п╬я█я┌п╬п╪я┐ я│п╫п╟п╠п╤п╟п╣я┌я│я▐ я┐п╨п╟п╥п╟п╫п╦п╣п╪ п╦п╪п╣п╫п╦ я┌п╦п©п╟. п÷я─п╦п╡п╣п╢п╣п╪ п╬п©п╦я│п╟п╫п╦п╣ п╪п╣я┌п╬п╢п╟-п©я─п╬я├п╣п╢я┐я─я▀:

procedure п╦п╪я▐_я┌п╦п©п╟.п╦п╪я▐_п╪п╣я┌п╬п╢п╟(п©п╟я─п╟п╪п╣я┌я─я▀);
const . . .
var . . .
begin
    <я┌п╣п╩п╬ п©я─п╬я├п╣п╢я┐я─я▀>
end;

    п░п╫п╟п╩п╬пЁп╦я┤п╫п╬ п╬п©п╦я│я▀п╡п╟п╣я┌я│я▐ п╪п╣я┌п╬п╢-я└я┐п╫п╨я├п╦я▐.

    п÷я─п╦п╪п╣я─

type TPoint = object
    x, я┐ : integer
    procedure Init (x0, я┐0 : integer) ;
end;
procedure TPoint.Init (x0, я┐0 : integer) ;
begin
    x:=x0;
    y:=y0
end;

    п·п╠я┼п╣п╨я┌ TPoint п╬п©п╦я│я▀п╡п╟п╣я┌ я┌п╬я┤п╨я┐ я│ я├п╣п╩п╬я┤п╦я│п╩п╣п╫п╫я▀п╪п╦ п╨п╬п╬я─п╢п╦п╫п╟я┌п╟п╪п╦ п╫п╟ п©п╩п╬я│п╨п╬я│я┌п╦ OXY. п°п╣я┌п╬п╢ Init п©я─п╦я│п╡п╟п╦п╡п╟п╣я┌ п╥п╫п╟я┤п╣п╫п╦я▐ п╨п╬п╬я─п╢п╦п╫п╟я┌п╟п╪ я┌п╬я┤п╨п╦, я┌.п╣. п╦п╫п╦я├п╦п╟п╩п╦п╥п╦я─я┐п╣я┌ я█п╨п╥п╣п╪п©п╩я▐я─ п╬п╠я┼п╣п╨я┌п╟. п·п╠я▀я┤п╫п╬ я█я┌п╬я┌ п╪п╣я┌п╬п╢ п©я─п╦я│я┐я┌я│я┌п╡я┐п╣я┌ п╡ п╨п╟п╤п╢п╬п╪ п╬п╠я┼п╣п╨я┌п╫п╬п╪ я┌п╦п©п╣ п╦ п╡я▀п╥я▀п╡п╟п╣я┌я│я▐ п©п╣я─п╡я▀п╪.

    п≈п╟п╢п╟п╫п╦п╣ 1. п■п╬п╠п╟п╡я▄я┌п╣ п╡ TPoint п╪п╣я┌п╬п╢ Equal, п╨oя┌oя─я▀п╧ п©я─п╬п╡п╣я─я▐п╣я┌ я│п╬п╡п©п╟п╢п╣п╫п╦п╣ я█п╨п╥п╣п╪п©п╩я▐я─п╟ п╬п╠я┼п╣п╨я┌п╟ я│ п╥п╟п╢п╟п╫п╫п╬п╧ я┌п╬я┤п╨п╬п╧ (я┌.п╣. я┐я│я┌п╟п╫п╟п╡п╩п╦п╡п╟п╣я┌ я│п╬п╡п©п╟п╢п╣п╫п╦п╣ п╦я┘ п╨п╬п╬я─п╢п╦п╫п╟я┌).
    п═п╣я┬п╣п╫п╦п╣. п■п╬п╠п╟п╡п╦п╪ п╡ п╬п©п╦я│п╟п╫п╦п╣ я┌п╦п©п╟ TPoint п╬п╠я┼я▐п╡п╩п╣п╫п╦п╣ п╪п╣я┌п╬п╢п╟:

function Equal (A : TPoint) : boolean;

п╟ п╡п╫п╣ я┌п╦п©п╟ п╬п©п╦я┬п╣п╪ я│п╟п╪я┐ я└я┐п╫п╨я├п╦я▌:

function TPoint.Equal (п░ : TPoint): boolean;
begin
    Equal: = (x=A. x) and (y=A.y)
end;

    п≈п╟п╪п╣я┤п╟п╫п╦п╣ 1. x п╦ п░.я┘ (п╟п╫п╟п╩п╬пЁп╦я┤п╫п╬ я┐ п╦ п░. я┐) Б─■ я█я┌п╬ я─п╟п╥п╫я▀п╣ п©п╣я─п╣п╪п╣п╫п╫я▀п╣, п©п╬я█я┌п╬п╪я┐ п╫п╦п╨п╟п╨п╬п╧ п©я┐я┌п╟п╫п╦я├я▀ п╫п╣ п©я─п╬п╦я│я┘п╬п╢п╦я┌.

    п≈п╟п╢п╟п╫п╦п╣ 2. п■п╬п╠п╟п╡я▄я┌п╣ п╡ TPoint п╫п╬п╡я▀п╧ п╪п╣я┌п╬п╢ Б─■ п©я─п╬я├п╣п╢я┐я─я┐, п╨п╬я┌п╬я─п╟я▐ п©я─п╦я│п╡п╟п╦п╡п╟п╣я┌ я█п╨п╥п╣п╪п©п╩я▐я─я┐ п╬п╠я┼п╣п╨я┌п╟ п╥п╫п╟я┤п╣п╫п╦я▐ п╢я─я┐пЁп╬п╧ я┌п╬я┤п╨п╦, п©п╣я─п╣п╢п╟п╡п╟п╣п╪п╬п╧ п╪п╣я┌п╬п╢я┐ п╨п╟п╨ п©п╟я─п╟п╪п╣я┌я─.

    п÷п╣я─п╣п╪п╣п╫п╫я▀п╣ п╬п╠я┼п╣п╨я┌п╫п╬пЁп╬ я┌п╦п©п╟, п╨п╟п╨ п╦ п╩я▌п╠я▀п╣ п╢я─я┐пЁп╦п╣ п©п╣я─п╣п╪п╣п╫п╫я▀п╣, п╬п╠я┼я▐п╡п╩я▐я▌я┌я│я▐ п╡ я─п╟п╥п╢п╣п╩п╣ var. п°п╬п╤п╫п╬ п╬п╠я┼я▐п╡п╦я┌я▄ п╨п╟п╨ п©я─п╬я│я┌я┐я▌ п©п╣я─п╣п╪п╣п╫п╫я┐я▌, я┌п╟п╨ п╦ п╪п╟я│я│п╦п╡:

const n=6;
var S : TPoint,
     п░ : array [l . . n] of TPoint;

    п╒п╬я┤п╫п╬ я┌п╟п╨ п╤п╣ п╬п╠я┼п╣п╨я┌п╫я▀п╧ я┌п╦п© п╪п╬п╤п╫п╬ п╦я│п©п╬п╩я▄п╥п╬п╡п╟я┌я▄ п╡ п╨п╟я┤п╣я│я┌п╡п╣ п©п╬п╩я▐ п╥п╟п©п╦я│п╦, п╫п╟п©я─п╦п╪п╣я─, п╪п╬п╤п╫п╬ п╡п╡п╣я│я┌п╦ я┌п╦п© п╒Segment Б─■ п╬я┌я─п╣п╥п╬п╨ п╫п╟ п©п╩п╬я│п╨п╬я│я┌п╦:

type TSegment = object
    п░, п▓ : TPoint;
    procedure Init (x1, y1, x2, y2 : integer) ;
end;
procedure TSegment.Init (x1, y1, x2, y2 : integer) ;
begin
    A.x: =x1; A.я┐: =y1 ;
    B.x:=x2;  B.y:=y2;
end;

    п■п╬я│я┌я┐п© п╨ п╪п╣я┌п╬п╢п╟п╪ п╬п╠я┼п╣п╨я┌п╫п╬пЁп╬ я┌п╦п©п╟ п╟п╫п╟п╩п╬пЁп╦я┤п╣п╫ п╢п╬я│я┌я┐п©я┐ п╨ п╣пЁп╬ п╢п╟п╫п╫я▀п╪. п║п╦п╫я┌п╟п╨я│п╦я│ п╡я▀п╥п╬п╡п╟ п╪п╣я┌п╬п╢п╟ п╡ п╬п╠я┴п╣п╪. я│п╩я┐я┤п╟п╣ п╡я▀пЁп╩я▐п╢п╦я┌ я│п╩п╣п╢я┐я▌я┴п╦п╪ п╬п╠я─п╟п╥п╬п╪:

п╦п╪я▐_п©п╣я─п╣п╪п╣п╫п╫п╬п╧.п╦п╪я▐ п╪п╣я┌п╬п╢п╟ (я│п©п╦я│п╬п╨ п©п╟я─п╟п╪п╣я┌я─п╬п╡).

    п■п╩я▐ п╦п╫п╦я├п╦п╟п╩п╦п╥п╟я├п╦п╦, п╫п╟п©я─п╦п╪п╣я─, п╫я┐п╩п╣п╡я▀п╪п╦ п╥п╫п╟я┤п╣п╫п╦я▐п╪п╦ п╬п╠я┼я▐п╡п╩п╣п╫п╫п╬п╧ п╡ я─п╟п╥п╢п╣п╩п╣ var п©п╣я─п╣п╪п╣п╫п╫п╬п╧ S п╫п╣п╬п╠я┘п╬п╢п╦п╪п╬ п╫п╟п©п╦я│п╟я┌я▄ S.Init (0,0).

    п≈п╟п╢п╟п╫п╦п╣ 3. п▓п╡п╣я│я┌п╦ п╨п╬п╬я─п╢п╦п╫п╟я┌я▀ я┌я─п╣я┘ п╡п╣я─я┬п╦п╫ я┌я─п╣я┐пЁп╬п╩я▄п╫п╦п╨п╟ п╦ п╡я▀я┤п╦я│п╩п╦я┌я▄ п╨п╬п╬я─п╢п╦п╫п╟я┌я▀ п╣пЁп╬ я├п╣п╫я┌я─п╟ я┌я▐п╤п╣я│я┌п╦.

    пёп╨п╟п╥п╟п╫п╦п╣. п п╬п╬я─п╢п╦п╫п╟я┌я▀ я├п╣п╫я┌я─п╟ я┌я▐п╤п╣я│я┌п╦ я┌я─п╣я┐пЁп╬п╩я▄п╫п╦п╨п╟ ABC п╡я▀я┤п╦я│п╩я▐я▌я┌я│я▐ п©п╬ я└п╬я─п╪я┐п╩п╟п╪:

x_c=1/3 (A_x + B_x + C_x)
y_c=1/3 (A_y + B_y + C_y)

(п╦п╫п╢п╣п╨я│п╟п╪п╦ я┘ п╦ я┐ п╬я┌п╪п╣я┤п╣п╫я▀ я│п╬п╬я┌п╡п╣я┌я│я┌п╡я┐я▌я┴п╦п╣ п╨п╬п╬я─п╢п╦п╫п╟я┌я▀ п╡п╣я─я┬п╦п╫ я┌я─п╣я┐пЁп╬п╩я▄п╫п╦п╨п╟).

п≈п╟п╫я▐я┌п╦п╣ 2. п²п╟я│п╩п╣п╢п╬п╡п╟п╫п╦п╣

    п÷я─п╣п╢п©п╬п╩п╬п╤п╦п╪, п╪я▀ я┘п╬я┌п╦п╪ п╢п╬п©п╬п╩п╫п╦я┌я▄ я┐п╤п╣ я─п╟п╥я─п╟п╠п╬я┌п╟п╫п╫я▀п╧ п╬п╠я┼п╣п╨я┌п╫я▀п╧ я┌п╦п© п╫п╬п╡я▀п╪п╦ я│п╡п╬п╧я│я┌п╡п╟п╪п╦. п°п╬п╤п╫п╬, п╨п╬п╫п╣я┤п╫п╬, п╣пЁп╬ п©п╣я─п╣п╢п╣п╩п╟я┌я▄, п╫п╬ п╬п╠я┼п╣п╨я┌п╫п╬-п╬я─п╦п╣п╫я┌п╦я─п╬п╡п╟п╫п╫я▀п╧ п©п╬п╢я┘п╬п╢ я─п╣п╨п╬п╪п╣п╫п╢я┐п╣я┌ я│п╬п╥п╢п╟я┌я▄ п╫п╬п╡я▀п╧ п╬п╠я┼п╣п╨я┌п╫я▀п╧ я┌п╦п© (п╬п╠я┼п╣п╨я┌-п╫п╟я│п╩п╣п╢п╫п╦п╨), п╨п╬я┌п╬я─я▀п╧ я▐п╡п╩я▐п╣я┌я│я▐ я─п╟я│я┬п╦я─п╣п╫п╦п╣п╪ я┐п╤п╣ п╦п╪п╣я▌я┴п╣пЁп╬я│я▐ п╠п╟п╥п╬п╡п╬пЁп╬ я┌п╦п©п╟. п²п╬п╡я▀п╧ я┌п╦п© п╠я┐п╢п╣я┌ п╡п╨п╩я▌я┤п╟я┌я▄ п╡ я│п╣п╠я▐ п╡я│п╣ п╢п╟п╫п╫я▀п╣ п╦ п╪п╣я┌п╬п╢я▀ п╠п╟п╥п╬п╡п╬пЁп╬ я┌п╦п©п╟. п≤ п©я─п╦ я█я┌п╬п╪ п╪п╬п╤п╣я┌ п╦п╪п╣я┌я▄ я│п╬п╠я│я┌п╡п╣п╫п╫я▀п╣ п©п╬п╩я▐, я│п╬п╠я│я┌п╡п╣п╫п╫я▀п╣ п╪п╣я┌п╬п╢я▀ п╦ п©п╣я─п╣п╨я─я▀п╡п╟я┌я▄ я│п╡п╬п╦п╪п╦ п╪п╣я┌п╬п╢п╟п╪п╦ п╬п╢п╫п╬п╦п╪п╣п╫п╫я▀п╣ я┐п╫п╟я│п╩п╣п╢п╬п╡п╟п╫п╫я▀п╣ п╪п╣я┌п╬п╢я▀. п╒п╟п╨п╦п╪ п╬п╠я─п╟п╥п╬п╪, п╡ п·п·п÷ я─п╟п╠п╬я┌п╟п╣я┌ п╪п╣я┘п╟п╫п╦п╥п╪ п╫п╟я│п╩п╣п╢п╬п╡п╟п╫п╦я▐ Б─■ я┌п╟п╨п╬пЁп╬ "п╬я┌п╫п╬я┬п╣п╫п╦я▐ п╪п╣п╤п╢я┐ п╬п╠я┼п╣п╨я┌п╟п╪п╦, п╨п╬пЁп╢п╟ п╬п╢п╦п╫ п╬п╠я┼п╣п╨я┌ п©п╬п╡я┌п╬я─я▐п╣я┌ я│я┌я─я┐п╨я┌я┐я─я┐ п╦ п©п╬п╡п╣п╢п╣п╫п╦п╣ п╢я─я┐пЁп╬пЁп╬" (п⌠я─п╟п╢п╦ п▒я┐я┤). п▒п╟п╥п╬п╡я▀п╣ п╬п╠я┼п╣п╨я┌я▀ п╫п╟п╥я▀п╡п╟я▌я┌ я─п╬п╢п╦я┌п╣п╩я▐п╪п╦ п╦ п©я─п╣п╢п╨п╟п╪п╦, п╟ п╬п╠я┼п╣п╨я┌я▀-п╫п╟я│п╩п╣п╢п╫п╦п╨п╦ Б─■ п©п╬я┌п╬п╪п╨п╟п╪п╦. п▓ я─п╣п╥я┐п╩я▄я┌п╟я┌п╣ я─п╣п╟п╩п╦п╥п╟я├п╦п╦ п╪п╣я┘п╟п╫п╦п╥п╪п╟ п╫п╟я│п╩п╣п╢п╬п╡п╟п╫п╦я▐ п╪п╣п╤п╢я┐ п╬п╠я┼п╣п╨я┌п╟п╪п╦ п╡п╬п╥п╫п╦п╨п╟п╣я┌ п╦п╣я─п╟я─я┘п╦я▐.
    п■п╬п╠п╟п╡п╦п╪ п╡ я─п╟п╥я─п╟п╠п╬я┌п╟п╫п╫я▀п╧ п╫п╟п╪п╦ я┌п╦п© TPoint п╡п╬п╥п╪п╬п╤п╫п╬я│я┌я▄ п╡я▀п╡п╬п╢п╟ я┌п╬я┤п╨п╦ п╫п╟ я█п╨я─п╟п╫ п╢п╦я│п©п╩п╣я▐. п■п╬я│я┌п╟я┌п╬я┤п╫п╬ п╩п╦ п╢п╩я▐ я█я┌п╬пЁп╬ п╣п╣ п╨п╬п╬я─п╢п╦п╫п╟я┌ я┘ п╦ y? п∙я│п╩п╦ п╪я▀ я┘п╬я┌п╦п╪ п╦я│п©п╬п╩я▄п╥п╬п╡п╟я┌я▄ я├п╡п╣я┌ п©я─п╦ п╡я▀п╡п╬п╢п╣ я┌п╬я┤п╨п╦, я┌п╬ п╡ п╫п╬п╡я▀п╧ п╨п╩п╟я│я│ я│п╩п╣п╢я┐п╣я┌ п╢п╬п╠п╟п╡п╦я┌я▄ я│п╬п╬я┌п╡п╣я┌я│я┌п╡я┐я▌я┴п╦п╧ я█п╩п╣п╪п╣п╫я┌ п╢п╟п╫п╫я▀я┘ (color). п я─п╬п╪п╣ я█я┌п╬пЁп╬, п╢п╬п╠п╟п╡я▐я┌я│я▐ п╪п╣я┌п╬п╢я▀, я│ п©п╬п╪п╬я┴я▄я▌ п╨п╬я┌п╬я─я▀я┘ п╪п╬п╤п╫п╬ "п©п╬п╨п╟п╥п╟я┌я▄" (п╪п╣я┌п╬п╢ Show) п╦ "я│п©я─я▐я┌п╟я┌я▄" (п╪п╣я┌п╬п╢ Hide) я┌п╬я┤п╨я┐.

    п║п╦п╫я┌п╟п╨я│п╦я│ п╬п╠я┼я▐п╡п╩п╣п╫п╦я▐ п╬п╠я┼п╣п╨я┌п╟-п╫п╟я│п╩п╣п╢п╫п╦п╨п╟ (п©п╬я┌п╬п╪п╨п╟):

type п╦п╪я▐_я┌п╦п©п╟ = п╬bjeя│t(п╦п╪я▐_п╠п╟п╥п╬п╡п╬пЁп╬_я┌п╦п©п╟)
    п╬п╠я┼я▐п╡п╩п╣п╫п╦п╣ п╢п╬п©п╬п╩п╫п╦я┌п╣п╩я▄п╫я▀я┘ п╢п╟п╫п╫я▀я┘
    п╬п╠я┼я▐п╡п╩п╣п╫п╦п╣ п╢п╬п©п╬п╩п╫п╦я┌п╣п╩я▄п╫я▀я┘ п╪п╣я┌п╬п╢п╬п╡
end;

п²п╟п╥п╬п╡п╣п╪ п╫п╬п╡я▀п╧ я┌п╦п© п╒ Pixel.

type TPixel == object (TPoint)
    color : word;
    procedure Init (x0, y0, c0 : word);
    procedure Show;
    procedure Hide;
end;

    п∙я┴п╣ я─п╟п╥ п©п╬п╢я┤п╣я─п╨п╫п╣п╪, я┤я┌п╬ TPixel я│п╬п╢п╣я─п╤п╦я┌ п╦ п╨п╬п╬я─п╢п╦п╫п╟я┌я▀ я┌п╬я┤п╨п╦ (я┘, y), я┌п╟п╨ п╨п╟п╨ п╫п╟я│п╩п╣п╢я┐п╣я┌ п╦я┘ п╦п╥ я┌п╦п©п╟ TPoint.
    п÷я─п╬я├п╣п╢я┐я─я┐ TPixel.Init п╪п╬п╤п╫п╬ п╫п╟п©п╦я│п╟я┌я▄ п©п╬ п╟п╫п╟п╩п╬пЁп╦п╦ я│ TPoint.Init:

procedure TPixel.Init (я┘0, я┐0, я│0 : word) ;
begin
    я┘:=я┘0;
    я┐:=я┐0;
    color:=я│0
end;

п╫п╬ п╩я┐я┤я┬п╣ п╡п╬я│п©п╬п╩я▄п╥п╬п╡п╟я┌я▄я│я▐ я┌п╣п╪, я┤я┌п╬ п╠п╬п╩я▄я┬я┐я▌ я┤п╟я│я┌я▄ я─п╟п╠п╬я┌я▀ п╪п╬п╤п╫п╬ п©п╬я─я┐я┤п╦я┌я▄ я│п╬п╬я┌п╡п╣я┌я│я┌п╡я┐я▌я┴п╣п╧ п©я─п╬я├п╣п╢я┐я─п╣ п╠п╟п╥п╬п╡п╬пЁп╬ я┌п╦п©п╟. п╖я┌п╬п╠я▀ п©я─п╦ я█я┌п╬п╪ п╨п╬п╪п©п╦п╩я▐я┌п╬я─я┐ п╠я▀п╩п╬ я▐я│п╫п╬, п╨п╟п╨п╟я▐ п╦п╥ п©я─п╬я├п╣п╢я┐я─ п╦п╪п╣п╣я┌я│я▐ п╡ п╡п╦п╢я┐, п╦п╪я▐ п╪п╣я┌п╬п╢п╟ я│п╫п╟п╠п╤п╟п╣я┌я│я▐ я┐п╨п╟п╥п╟п╫п╦п╣п╪ п╦п╪п╣п╫п╦ п╬п╠я┼п╣п╨я┌п╫п╬пЁп╬ я┌п╦п©п╟:

procedure TPixel.Init (я┘0, я┐0, я│0 : word);
begin
    TPoint.Init (я┘0, я┐0) ;
    color:=я│0
end;

    п╒п╬я┌ п╤п╣ я█я└я└п╣п╨я┌ п╢п╬я│я┌п╦пЁп╟п╣я┌я│я▐, п╣я│п╩п╦ п╡п╪п╣я│я┌п╬ TPoint.Init (x0, y0) п╫п╟п©п╦я│п╟я┌я▄ inherited Init (x0, y0).

п║п╩п╬п╡п╬ inherited п╬п╥п╫п╟я┤п╟п╣я┌, я┤я┌п╬ п╡я▀п╥я▀п╡п╟п╣я┌я│я▐ п╪п╣я┌п╬п╢ п╠п╟п╥п╬п╡п╬пЁп╬ я┌п╦п©п╟ (п©я─п╣п╢п╨п╟), п╫п╣п©п╬я│я─п╣п╢я│я┌п╡п╣п╫п╫п╬ п╬я┌ п╨п╬я┌п╬я─п╬я▌ п©я─п╬п╦п╥п╬я┬п╣п╩ п╢п╟п╫п╫я▀п╧ я┌п╦п© (п©п╬я┌п╬п╪п╬п╨).
    п÷я─п╦п╡п╣п╢п╣п╪ п╠п╣п╥ п╨п╬п╪п╪п╣п╫я┌п╟я─п╦я▐ я┌п╣п╨я│я┌я▀ п╪п╣я┌п╬п╢п╬п╡ Show п╦ Hide.

procedure TPixel.Show;
begin
    putpixel (x, y, color)
end;

procedure TPixel.Hide;
begin
putpixel (x, y, getbkcolor)
end;

    п≈п╟п╢п╟п╫п╦п╣ 1. п²п╟п©п╦я┬п╦я┌п╣ п©я─п╬пЁя─п╟п╪п╪я┐, п╨п╬я┌п╬я─п╟я▐ я│п╩я┐я┤п╟п╧п╫я▀п╪ п╬п╠я─п╟п╥п╬п╪ "п╥п╟п╤п╦пЁп╟п╣я┌" п╦ "пЁп╟я│п╦я┌" п╫п╟ я█п╨я─п╟п╫п╣ я─п╟п╥п╫п╬я├п╡п╣я┌п╫я▀п╣ я┌п╬я┤п╨п╦.

    пёп╨п╟п╥п╟п╫п╦п╣. п·п╠я┼я▐п╡п╦я┌п╣ п╡ п©я─п╬пЁя─п╟п╪п╪п╣ п╪п╟я│я│п╦п╡ я┌п╬я┤п╣п╨ п╨п╟п╨ я█п╨п╥п╣п╪п©п╩я▐я─я▀ п╬п╠я┼п╣п╨я┌п╟ я┌п╦п©п╟ TPixel, п╦п╫п╦я├п╦п╟п╩п╦п╥п╦я─я┐п╧я┌п╣ п╦я┘ я│п╩я┐я┤п╟п╧п╫я▀п╪п╦ п╢п╟п╫п╫я▀п╪п╦. п≤я│п©п╬п╩я▄п╥я┐п╧я┌п╣ п╪п╣я┌п╬п╢я▀ Show п╦ Hide п╢п╩я▐ я│п╩я┐я┤п╟п╧п╫п╬ п╡я▀п╠я─п╟п╫п╫я▀я┘ я█п╩п╣п╪п╣п╫я┌п╬п╡ п╪п╟я│я│п╦п╡п╟.

    п≈п╟п╢п╟п╫п╦п╣ 2. п²п╟я─п╦я│я┐п╧я┌п╣ п╬п╨я─я┐п╤п╫п╬я│я┌я▄ п╢п╡п╦п╤п╣п╫п╦п╣п╪ я┌п╬я┤п╨п╦, п╥п╟я┌п╣п╪ я│п╬я┌я─п╦я┌п╣ п╣п╣.

    пёп╨п╟п╥п╟п╫п╦п╣. п≤я│п©п╬п╩я▄п╥я┐п╧я┌п╣ п╪п╟я│я│п╦п╡ я┌п╬я┤п╣п╨, я─п╟я│п©п╬п╩п╬п╤п╣п╫п╫я▀я┘ п©п╬ п╬п╨я─я┐п╤п╫п╬я│я┌п╦.

    п■п╬п╠п╟п╡п╦п╪ п╪п╣я┌п╬п╢, п╨п╬я┌п╬я─я▀п╧ п©п╣я─п╣п╪п╣я┴п╟п╣я┌ я┌п╬я┤п╨я┐ п╡ п╢я─я┐пЁя┐я▌ п©п╬п╥п╦я├п╦я▌ я█п╨я─п╟п╫п╟ (п©я─п╦ я█я┌п╬п╪ я├п╡п╣я┌ я┌п╬я┤п╨п╦ п╫п╣ п╦п╥п╪п╣п╫я▐п╣я┌я│я▐). п╖я┌п╬п╠я▀ п©п╣я─п╣п╪п╣я│я┌п╦я┌я▄ п╦п╥п╬п╠я─п╟п╤п╣п╫п╦п╣ я┌п╬я┤п╨п╦, п╣п╣ я│п╩п╣п╢я┐п╣я┌ я│я┌п╣я─п╣я┌я▄ я│ я█п╨я─п╟п╫п╟ п╦ п╡я▀п╡п╣я│я┌п╦ я│п╫п╬п╡п╟, п╫п╬ я┐п╤п╣ п╡ п╢я─я┐пЁп╬п╧ п©п╬п╥п╦я├п╦п╦. п■п╩я▐ я█я┌п╬я▌ я┐п╢п╬п╠п╫п╬ п╦я│п©п╬п╩я▄п╥п╬п╡п╟я┌я▄ я┐п╤п╣ п╦п╪п╣я▌я┴п╦п╣я│я▐ п©я─п╬я├п╣п╢я┐я─я▀ Show п╦ Hide. п≈п╟п╪п╣я┌п╦п╪, я┤я┌п╬, п╨я─п╬п╪п╣ п╡п╫п╣я┬п╫п╣пЁп╬ п╢п╣п╧я│я┌п╡п╦я▐, п╪п╣я┌п╬п╢ п╢п╬п╩п╤п╣п╫ п╦п╥п╪п╣п╫п╦я┌я▄ п╦ п╥п╫п╟я┤п╣п╫п╦я▐ п╨п╬п╬я─п╢п╦п╫п╟я┌ я┌п╬я┤п╨п╦.

procedure TPixel.Move (newX, newY : integer) ;
begin
    Hide;
    x:=newX; я┐:=newY;
Show;
end;

    п≈п╟п╢п╟п╫п╦п╣ п≈. п²п╟п©п╦я┬п╦я┌п╣ п╪п╣я┌п╬п╢ ChangeC, п╨п╬я┌п╬я─я▀п╧ п╦п╥п╪п╣п╫я▐п╣я┌ я├п╡п╣я┌ я┌п╬я┤п╨п╦ п╠п╣п╥ п╦п╥п╪п╣п╫п╣п╫п╦я▐ п╣п╣ п©п╬п╩п╬п╤п╣п╫п╦я▐ п╫п╟ я█п╨я─п╟п╫п╣.

    п≈п╟п╢п╟п╫п╦п╣ 4. п≤я│п©п╬п╩я▄п╥я┐я▐ п╪п╣я┌п╬п╢я▀ Move п╦ ChangeC, п╫п╟п©п╦я┬п╦я┌п╣ п÷я─п╬пЁя─п╟п╪п╪я┐ п╢п╡п╦п╤п╣п╫п╦я▐ я┌п╬я┤п╨п╦ п©п╬ п╫п╣п╨п╬я┌п╬я─п╬п╧ п©я─я▐п╪п╬п╧. п╒п╬я┤п╨п╟ п╢п╬п╩п╤п╫п╟ п╦п╥п╪п╣п╫я▐я┌я▄ я├п╡п╣я┌, п╨п╬пЁп╢п╟ п©я─п╬я┘п╬п╢п╦я┌ п╫п╟п╢ п╥п╟п╢п╟п╫п╫п╬п╧ п╬п╠п╩п╟я│я┌я▄я▌ я█п╨я─п╟п╫п╟.

    п≈п╟п╢п╟п╫п╦п╣ 5*. п║п╪п╬п╢п╣п╩п╦я─я┐п╧я┌п╣ "п╢п╡п╦п╤п╣п╫п╦п╣ я┤п╣я─п╣п╥ п▓я│п╣п╩п╣п╫п╫я┐я▌":, я│п╡п╣я┌я▐я┴п╦п╣я│я▐ я┌п╬я┤п╨п╦-п╥п╡п╣п╥п╢я▀ я─п╟п╥п╠п╣пЁп╟я▌я┌я│я▐ п╬я┌ я├п╣п╫я┌я─п╟ я█п╨я─п╟п╫п╟ п╨ п╣пЁп╬ пЁя─п╟п╫п╦я├п╟п╪, п╡п╪п╣я│я┌п╬ п╦я│я┤п╣п╥п╫я┐п╡я┬п╦я┘ п╡ я├п╣п╫я┌я─п╣ я█п╨я─п╟п╫п╟ п©п╬я▐п╡п╩я▐я▌я┌я│я▐ п╫п╬п╡я▀п╣ я┌п╬я┤п╨п╦-п╥п╡п╣п╥п╢я▀.

п≈п╟п╫я▐я┌п╦п╣ п≈. п÷п╬п╩п╦п╪п╬я─я└п╦п╥п╪

    п÷я─п╬п╢п╬п╩п╤п╦п╪ п©п╬я│я┌я─п╬п╣п╫п╦п╣ п╦п╣я─п╟я─я┘п╦п╦ п╬п╠я┼п╣п╨я┌п╬п╡. п║п╬п╥п╢п╟п╢п╦п╪ я┌п╦п© TCircle (п╬п╨я─я┐п╤п╫п╬я│я┌я▄), п╨п╬я┌п╬я─я▀п╧ я│п╢п╣п╩п╟п╣п╪ п©я─п╬п╦п╥п╡п╬п╢п╫я▀п╪ п╬я┌ я┌п╦п©п╟ TPixel (я┌п╦п© TCircle Б─■ п©п╬я┌п╬п╪п╬п╨ я┌п╦п©п╟ TPixel). п÷п╬я│п╨п╬п╩я▄п╨я┐ п╫п╬п╡я▀п╧ я┌п╦п© п╫п╟я│п╩п╣п╢я┐п╣я┌ п╢п╟п╫п╫я▀п╣ п╦ п╦п╥ TPixel, п╦ п╦п╥ TPoint, я┌п╬ п╡ п╫п╣п╪ я┐п╤п╣ я│п╬п╢п╣я─п╤п╟я┌я│я▐ п©п╬п╩я▐ x, я┐ п╦ color. п·я│я┌п╟п╩п╬я│я▄ я┌п╬п╩я▄п╨п╬ п╢п╬п╠п╟п╡п╦я┌я▄ я─п╟п╢п╦я┐я│ п╬п╨я─я┐п╤п╫п╬я│я┌п╦ R п╦ п╪п╣я┌п╬п╢ ChangeR п╢п╩я▐ п╣пЁп╬ п╦п╥п╪п╣п╫п╣п╫п╦я▐:

type TCircle = object (TPixel)
    R : word;
    procedure Init (x0, y0, r0, c0 : word);
    procedure Show;
    procedure Hide;
    procedure ChangeR (newR : integer);
end;

procedure TCircle.Init (x0, y0, r0, c0 : word) ;
begin
    {п╡я▀п╥я▀п╡п╟п╣п╪ п╪п╣я┌п╬п╢ п╠п╟п╥п╬п╡п╬пЁп╬ я┌п╦п©п╟}
    inherited Init (x0, y0, c0) ;
    R:=r0;
end;

procedure TCircle.Show;
begin
    SetColor (color) ;
    Circle (x, y, R) ;
end;

procedure TCircle.Hide;
begin
    SetColor (getbkcolor) ;
    Circle (x, y, R) ;
end;

procedure TCircle.ChangeR (newR: integer) ;
begin
    if newR>=0 then begin
        Hide;
        R:=newR;
        Show;
    end;
end;

    п°п╣я┌п╬п╢я▀ Move п╦ ChangeC п╢п╩я▐ п╬п╨я─я┐п╤п╫п╬я│я┌п╦ я┌п╣п╨я│я┌я┐п╟п╩я▄п╫п╬ я│п╬п╡п©п╟п╢п╟я▌я┌ я│ я█я┌п╦п╪п╦ п╤п╣ п╪п╣я┌п╬п╢п╟п╪п╦ п╢п╩я▐ я┌п╬я┤п╨п╦. п°п╬п╤п╫п╬ п╩п╦ п╫п╟я│п╩п╣п╢п╬п╡п╟я┌я▄ п╦я┘ п╦п╥ п╠п╟п╥п╬п╡п╬пЁп╬ я┌п╦п©п╟? п÷п╬п©я─п╬п╠я┐п╣п╪ п╥п╟п╪п╣п╫п╦я┌я▄ п╬п╠я┼п╣п╨я┌ я┌п╦п©п╟ TPixel п╫п╟ п╬п╠я┼п╣п╨я┌ я┌п╦п©п╟ TCircle п╡ п╬п╢п╫п╬п╧ п╦п╥ п©я─п╣п╢я▀п╢я┐я┴п╦я┘ п©я─п╬пЁя─п╟п╪п╪. п÷п╬п╨п╟ п╪я▀ п╦я│п©п╬п╩я▄п╥я┐п╣п╪ я┌п╬п╩я▄п╨п╬ п╪п╣я┌п╬п╢я▀ Show п╦ Hide, п©я─п╬пЁя─п╟п╪п╪п╟ я─п╟п╠п╬я┌п╟п╣я┌ п╫п╬я─п╪п╟п╩я▄п╫п╬. п п╟п╨ я┌п╬п╩я▄п╨п╬ п╪я▀ п©я▀я┌п╟п╣п╪я│я▐ я│п╪п╣я│я┌п╦я┌я▄ п╬п╨я─я┐п╤п╫п╬я│я┌я▄ п╪п╣я┌п╬п╢п╬п╪ Move (п╦п╩п╦ п╦п╥п╪п╣я─п╦я┌я▄ п╣п╣ я├п╡п╣я┌ п╪п╣я┌п╬п╢п╬п╪ ChangeC ), п╬п╨я─я┐п╤п╫п╬я│я┌я▄ п©я─п╣п╡я─п╟я┴п╟п╣я┌я│я▐... п╡ я┌п╬я┤п╨я┐! п═п╟п╥п╠п╣я─п╣п╪я│я▐, п©п╬я┤п╣п╪я┐ я█я┌п╬ п©я─п╬п╦я│я┘п╬п╢п╦я┌.
    п п╬пЁп╢п╟ п╪п╣я┌п╬п╢ TPixel.Move п╨п╬п╪п©п╦п╩п╦я─я┐п╣я┌я│я▐, я┌п╬ п╡ п╫п╣пЁп╬ п╡я│я┌п╟п╡п╩я▐я▌я┌я│я▐ п╡я▀п╥п╬п╡я▀ п╪п╣я┌п╬п╢п╬п╡ TPixel.Show п╦ TPixel.Hide, п©п╬я█я┌п╬п╪я┐ п╢п╟п╤п╣ п╣я│п╩п╦ п╪п╣я┌п╬п╢ Move п╡я▀п╥я▀п╡п╟п╣я┌я│я▐ п╦п╥ п╬п╠я┼п╣п╨я┌п╟ я┌п╦п©п╟ TCircle, п╦п╥п╬п╠я─п╟п╤п╟я┌я▄я│я▐ п╫п╟ я█п╨я─п╟п╫п╣ п╠я┐п╢п╣я┌ п╡я│п╣ п╤п╣ я┌п╬я┤п╨п╟, п╟ п╫п╣ п╬п╨я─я┐п╤п╫п╬я│я┌я▄.
    п═п╣я┬п╦я┌я▄ я█я┌я┐ п©я─п╬п╠п╩п╣п╪я┐ п╪п╬п╤п╫п╬ п╢п╡я┐п╪я▐ я│п©п╬я│п╬п╠п╟п╪п╦. п÷п╣я─п╡я▀п╧ Б─■ я█я┌п╬ п╡п╨п╩я▌я┤п╦я┌я▄ п╪п╣я┌п╬п╢ Move (п╟ я┌п╟п╨п╤п╣ ChangeC) п╡ я┌п╦п© TCircle. п╜я┌п╬ я─п╣я┬п╣п╫п╦п╣ п╫п╣п╩я▄п╥я▐ п╫п╟п╥п╡п╟я┌я▄ я┐п╢п╟я┤п╫я▀п╪, я┌п╟п╨ п╨п╟п╨ п©я─п╦ п©п╬я│п╩п╣п╢я┐я▌я┴п╣п╪ п╢п╬п╠п╟п╡п╩п╣п╫п╦п╦ п╡ п╦п╣я─п╟я─я┘п╦я▌ п╫п╬п╡я▀я┘ п╬п╠я┼п╣п╨я┌п╬п╡ п©я─п╦п╢п╣я┌я│я▐ п╨п╟п╤п╢я▀п╧ я─п╟п╥ п©п╣я─п╣п©п╦я│я▀п╡п╟я┌я▄ я├п╣п╩я┐я▌ п╨я┐я┤я┐ п╪п╣я┌п╬п╢п╬п╡.
    п▓я┌п╬я─п╬п╧ я│п©п╬я│п╬п╠ Б─■ п╬п╠я┼я▐п╡п╦я┌я▄ п╪п╣я┌п╬п╢я▀ Show п╦ Hide, п╬я┌ п╨п╬я┌п╬я─я▀я┘ п╦ п╥п╟п╡п╦я│п╦я┌, я┤я┌п╬ п╠я┐п╢п╣я┌ п╫п╟я─п╦я│п╬п╡п╟п╫п╬ п╫п╟ я█п╨я─п╟п╫п╣, п╡п╦я─я┌я┐п╟п╩я▄п╫я▀п╪п╦. п╒п╬пЁп╢п╟ п©я─п╦ п╨п╬п╪п©п╦п╩я▐я├п╦п╦ п╪п╣я┌п╬п╢п╟ п╒Pixel.Move п╡ п╫п╣пЁп╬ п╡п╪п╣я│я┌п╬ п╡я▀п╥п╬п╡п╟ п╪п╣я┌п╬п╢п╟ TPixel.Show п╡я│я┌п╟п╡п╩я▐п╣я┌я│я▐ я│я│я▀п╩п╨п╟ п╫п╟ я┌п╟п╠п╩п╦я├я┐, я│п╬п╢п╣я─п╤п╟я┴я┐я▌ п╟п╢я─п╣я│п╟ п╡я│п╣я┘ п╪п╣я┌п╬п╢п╬п╡ я│ п╦п╪п╣п╫п╣п╪ Show (я┌п╟п╨ п╫п╟п╥я▀п╡п╟п╣п╪я┐я▌ я┌п╟п╠п╩п╦я├я┐ п╡п╦я─я┌я┐п╟п╩я▄п╫я▀я┘ п╪п╣я┌п╬п╢п╬п╡). п°п╣я┌п╬п╢, п╬п╠я┼я▐п╡п╩п╣п╫п╫я▀п╧ п╡п╦я─я┌я┐п╟п╩я▄п╫я▀п╪ п╡ п╫п╣п╨п╬я┌п╬я─п╬п╪ п╬п╠я┼п╣п╨я┌п╣, п╬п╠я▐п╥п╟п╫ п╠я▀я┌я▄ п╡п╦я─я┌я┐п╟п╩я▄п╫я▀п╪ п╦ п╡п╬ п╡я│п╣я┘ п©я─п╬п╦п╥п╡п╬п╢п╫я▀я┘ п╬п╠я┼п╣п╨я┌п╟я┘. п²п╟ я█я┌п╟п©п╣ п╡я▀п©п╬п╩п╫п╣п╫п╦я▐ п©я─п╬пЁя─п╟п╪п╪я▀ п©я─п╦ п╡я▀п╥п╬п╡п╣ п╪п╣я┌п╬п╢п╟ Show п╦п╥ я┌п╟п╠п╩п╦я├я▀ п╠я┐п╢п╣я┌ п╡п╥я▐я┌ п╟п╢я─п╣я│ я┌п╬пЁп╬ п╦п╥ п╫п╦я┘, п╨п╬я┌п╬я─я▀п╧ п©я─п╦п╫п╟п╢п╩п╣п╤п╦я┌ п╬п╠я┼п╣п╨я┌я┐, п╡я▀п╥п╡п╟п╡я┬п╣п╪я┐ я█я┌п╬я┌ п╪п╣я┌п╬п╢.
    п²п╟ я█я┌п╬п╪ п©я─п╦п╪п╣я─п╣ п╪я▀ п©п╬п╥п╫п╟п╨п╬п╪п╦п╩п╦я│я▄ я│ я┌я─п╣я┌я▄п╦п╪ я│п╡п╬п╧я│я┌п╡п╬п╪ п·п·п÷ Б─■ п©п╬п╩п╦п╪п╬я─я└п╦п╥п╪п╬п╪. п÷п╬п╩п╦п╪п╬я─я└п╦п╥п╪ Б─■ я│п╡п╬п╧я│я┌п╡п╬ я─п╟п╥п╩п╦я┤п╫я▀я┘ п╬п╠я┼п╣п╨я┌п╬п╡ п╡я▀п©п╬п╩п╫я▐я┌я▄ п╬п╢п╫п╬ п╦ я┌п╬ п╤п╣ п╢п╣п╧я│я┌п╡п╦п╣ (п╪п╣я┌п╬п╢) п©п╬-я│п╡п╬п╣п╪я┐.
    п╒п╟п╨п╦п╪ п╬п╠я─п╟п╥п╬п╪, п╣я│п╩п╦ п©п╣я─п╣п╪п╣п╫п╫п╟я▐ п║ п╬п╠я┼я▐п╡п╩п╣п╫п╟ п╨п╟п╨ я┌п╬я┤п╨п╟, я┌п╬ п╡я▀п╥п╬п╡ п║.Move п╫п╟я─п╦я│я┐п╣я┌ п╫п╟ п╫п╬п╡п╬п╪ п╪п╣я│я┌п╣ я┌п╬я┤п╨я┐, п╟ п╣я│п╩п╦ п©п╣я─п╣п╪п╣п╫п╫я┐я▌ п║ п╬п╠я┼я▐п╡п╦я┌я▄ п╨п╟п╨ п╬п╨я─я┐п╤п╫п╬я│я┌я▄, я┌п╬ п╡я▀п╥п╬п╡ п║.Move п╫п╟я─п╦я│я┐п╣я┌ п╫п╟ п╫п╬п╡п╬п╪ п╪п╣я│я┌п╣ п╬п╨я─я┐п╤п╫п╬я│я┌я▄.

    п÷я─п╦ п╬п╠я┼я▐п╡п╩п╣п╫п╦п╦ п╡п╦я─я┌я┐п╟п╩я▄п╫я▀я┘ п╪п╣я┌п╬п╢п╬п╡ (я┌.п╣. п╡п╫я┐я┌я─п╦ я┌п╦п©п╟) п╡ п╨п╬п╫я├п╣ п╥п╟пЁп╬п╩п╬п╡п╨п╟ п╢п╬п╠п╟п╡п╩я▐п╣я┌я│я▐ я│п╩п╬п╡п╬ virtual, п╫п╟п©я─п╦п╪п╣я─:

    procedure Show; virtual;
    procedure Hide; virtual;

    п²п╟ я│п╟п╪п╬п╪ п╢п╣п╩п╣ я┌я─п╣п╠я┐п╣я┌я│я▐ п╣я┴п╣ п╬п╢п╫п╬ я│я┐я┴п╣я│я┌п╡п╣п╫п╫п╬п╣ п╦п╥п╪п╣п╫п╣п╫п╦п╣. п∙я│п╩п╦ п╡ п╬п©п╦я│п╟п╫п╦п╦ я┌п╦п©п╟ п╣я│я┌я▄ п╡п╦я─я┌я┐п╟п╩я▄п╫я▀п╧ п╪п╣я┌п╬п╢, я┌п╬ п╨п╟п╤п╢я▀п╧ я█п╨п╥п╣п╪п©п╩я▐я─ я█я┌п╬пЁп╬ я┌п╦п©п╟ п╢п╬п╩п╤п╣п╫ я│п╬п╢п╣я─п╤п╟я┌я▄ я┐п╨п╟п╥п╟я┌п╣п╩я▄ п╫п╟ я┌п╟п╠п╩п╦я├я┐ п╡п╦я─я┌я┐п╟п╩я▄п╫я▀я┘ п╪п╣я┌п╬п╢п╬п╡. п╜я┌п╬я┌ я┐п╨п╟п╥п╟я┌п╣п╩я▄ я█п╨п╥п╣п╪п©п╩я▐я─ я┌п╦п©п╟ п╪п╬п╤п╣я┌ п©п╬п╩я┐я┤п╦я┌я▄ я┌п╬п╩я▄п╨п╬ я┌п╬пЁп╢п╟, п╨п╬пЁп╢п╟ п╬п╫ п╠я┐п╢п╣я┌ я│п╬п╥п╢п╟п╫, я┌.п╣. я┐п╤п╣ п©я─п╦ п╡я▀п©п╬п╩п╫п╣п╫п╦п╦ п©я─п╬пЁя─п╟п╪п╪я▀. п·п╠я▀я┤п╫п╬ я█я┌п╦ п╢п╣п╧я│я┌п╡п╦я▐ "п©п╬я─я┐я┤п╟я▌я┌я│я▐" п©я─п╬я├п╣п╢я┐я─п╣ п╦п╫п╦я├п╦п╟п╩п╦п╥п╟я├п╦п╦ п╬п╠я┼п╣п╨я┌п╟, я┌п╟п╨ п╨п╟п╨ п╬п╫п╟ п╡я▀п╥я▀п╡п╟п╣я┌я│я▐ п©п╣я─п╡п╬п╧, п╢п╬ п╡я▀п╥п╬п╡п╟ п╩я▌п╠п╬пЁп╬ п╡п╦я─я┌я┐п╟п╩я▄п╫п╬пЁп╬ п╪п╣я┌п╬п╢п╟. п╖я┌п╬п╠я▀ п╨п╬п╪п©п╦п╩я▐я┌п╬я─ п╢п╬п╠п╟п╡п╦п╩ я│п╬п╬я┌п╡п╣я┌я│я┌п╡я┐я▌я┴п╦п╧ п╨п╬п╢ п╨ п©я─п╬я├п╣п╢я┐я─п╣ п╦п╫п╦я├п╦п╟п╩п╦п╥п╟я├п╦п╦, я│п╩п╣п╢я┐п╣я┌ п╬п╠я┼я▐п╡п╩я▐я┌я▄ п╦ п╬п©п╦я│я▀п╡п╟я┌я▄ п╣п╣ я│ п╨п╩я▌я┤п╣п╡я▀п╪ я│п╩п╬п╡п╬п╪ constructor, я┌.п╣. я│п╩п╬п╡п╬ procedure п╥п╟п╪п╣п╫я▐п╣я┌я│я▐ я│п╩п╬п╡п╬п╪ constructor.
    п п╟п╤п╢я▀п╧ п╬я┌п╢п╣п╩я▄п╫я▀п╧ я█п╨п╥п╣п╪п©п╩я▐я─ п╬п╠я┼п╣п╨я┌п╟ п╢п╬п╩п╤п╣п╫ п╦п╫п╦я├п╦п╟п╩п╦п╥п╦я─п╬п╡п╟я┌я▄я│я▐ п╬я┌п╢п╣п╩я▄п╫я▀п╪ п╡я▀п╥п╬п╡п╬п╪ п╨п╬п╫я│я┌я─я┐п╨я┌п╬я─п╟. п²п╣п╢п╬я│я┌п╟я┌п╬я┤п╫п╬ п╦п╫п╦я├п╦п╟п╩п╦п╥п╦я─п╬п╡п╟я┌я▄ п╬п╢п╦п╫ я█п╨п╥п╣п╪п©п╩я▐я─ п╬п╠я┼п╣п╨я┌п╟ п╦ п╥п╟я┌п╣п╪ п©я─п╦я│п╡п╟п╦п╡п╟я┌я▄ я█я┌п╬я┌ я█п╨п╥п╣п╪п©п╩я▐я─ п╢я─я┐пЁп╦п╪. п╜я┌п╬ п╪п╬п╤п╣я┌ п©я─п╦п╡п╣я│я┌п╦ п╨ п╥п╟п╡п╦я│п╟п╫п╦я▌ я│п╦я│я┌п╣п╪я▀ п©я─п╦ п©п╬п©я▀я┌п╨п╣ п╦я│п©п╬п╩я▄п╥п╬п╡п╟я┌я▄ п╦я┘ п╡п╦я─я┌я┐п╟п╩я▄п╫я▀п╣ п╪п╣я┌п╬п╢я▀. п²п╦п╤п╣ п©я─п╦п╡п╣п╢п╣п╫ п©я─п╦п╪п╣я─ я│ п╬я┬п╦п╠п╨п╬п╧:

var п░, п▓ : TPixel;
begin
    { п╦п╫п╦я├п╦п╟п╩п╦п╥п╟я├п╦я▐ пЁя─п╟я└п╦п╨п╦ }
    A.Init (50, 90, 5) { п╡я▀п╥п╬п╡ п╨п╬п╫я│я┌я─я┐п╨я┌п╬я─п╟ п╢п╩я▐ п░ }
    п▓ := п░; { п╬я┬п╦п╠п╨п╟! }
    п▓.Show; { п╥п╟п╡п╦я│п╟п╫п╦п╣ я│п╦я│я┌п╣п╪я▀ }
    . . .
end;

    п≈п╟п╢п╟п╫п╦п╣ 1. п≤я│п©п╬п╩я▄п╥я┐я▐ п╡п╦я─я┌я┐п╟п╩я▄п╫я▀п╣ п╪п╣я┌п╬п╢я▀ п╦ п╨п╬п╫я│я┌я─я┐п╨я┌п╬я─я▀, п╫п╟п©п╦я┬п╦я┌п╣ п©я─п╬пЁя─п╟п╪п╪я┐ п╢п╡п╦п╤п╣п╫п╦я▐ п╬п╨я─я┐п╤п╫п╬я│я┌п╦ п©п╬ п╫п╣п╨п╬я┌п╬я─п╬п╧ п©я─я▐п╪п╬п╧. п·п╨я─я┐п╤п╫п╬я│я┌я▄ п╢п╬п╩п╤п╫п╟ п╦п╥п╪п╣п╫я▐я┌я▄ я│п╡п╬п╧ я├п╡п╣я┌ п©я─п╦ п©я─п╬я┘п╬п╤п╢п╣п╫п╦п╦ п╣п╣ я├п╣п╫я┌я─п╟ п╫п╟п╢ п╥п╟п╢п╟п╫п╫п╬п╧ п╬п╠п╩п╟я│я┌я▄я▌ я█п╨я─п╟п╫п╟.

    п≈п╟п╢п╟п╫п╦п╣ 2. п■п╬п╠п╟п╡я▄я┌п╣ п╡ п╦п╣я─п╟я─я┘п╦я▌ п╬п╠я┼п╣п╨я┌п╫я▀я┘ я┌п╦п©п╬п╡ п╫п╬п╡я▀п╧ я┌п╦п© Б─■ я┬п╣я│я┌п╦я┐пЁп╬п╩я▄п╫п╦п╨ (я┌п╦п© THexagon), п©я─п╦я┤п╣п╪ п╥п╫п╟я┤п╣п╫п╦п╣ Tcircle.R я─п╟п╡п╫п╬ я─п╟п╢п╦я┐я│я┐ п╬п©п╦я│п╟п╫п╫п╬п╧ п╡п╬п╨я─я┐пЁ я┬п╣я│я┌п╦я┐пЁп╬п╩я▄п╫п╦п╨п╟ п╬п╨я─я┐п╤п╫п╬я│я┌п╦.

    п≈п╟п╢п╟п╫п╦п╣ 3. п■п╬п╠п╟п╡я▄я┌п╣ п╡ п╦п╣я─п╟я─я┘п╦я▌ п╬п╠я┼п╣п╨я┌п╫я▀я┘ я┌п╦п©п╬п╡ п╫п╬п╡я▀п╧ я┌п╦п© Б─■ я█п╩п╩п╦п©я│ (я┌п╦п© TEllipse), п©я─п╦я┤п╣п╪ п╥п╫п╟я┤п╣п╫п╦п╣ Tcircle.R я─п╟п╡п╫п╬ п╡п╣п╩п╦я┤п╦п╫п╣ пЁп╬я─п╦п╥п╬п╫я┌п╟п╩я▄п╫п╬п╧ п©п╬п╩я┐п╬я│п╦ я█п╩п╩п╦п©я│п╟ (п╢п╩я▐ п╡п╣я─я┌п╦п╨п╟п╩я▄п╫п╬п╧ п©п╬п╩я┐п╬я│п╦ п©п╬я┌я─п╣п╠я┐п╣я┌я│я▐ п╡п╡п╣я│я┌п╦ п╫п╬п╡я▀п╧ я█п╩п╣п╪п╣п╫я┌ п╢п╟п╫п╫я▀я┘). п²п╟п©п╦я┬п╦я┌п╣ п╫п╬п╡я▀п╧ п╪п╣я┌п╬п╢, п╨п╬я┌п╬я─я▀п╧ п╦п╥п╪п╣п╫я▐п╣я┌ п╡п╣п╩п╦я┤п╦п╫я┐ п╡п╣я─я┌п╦п╨п╟п╩я▄п╫п╬п╧ п©п╬п╩я┐п╬я│п╦ п╫п╣п╥п╟п╡п╦я│п╦п╪п╬ п╬я┌ пЁп╬я─п╦п╥п╬п╫я┌п╟п╩я▄п╫п╬п╧.

п≈п╟п╫я▐я┌п╦п╣ 4. п·п╠я─п╟п╠п╬я┌п╨п╟ я│п╬п╠я▀я┌п╦п╧ п╡ п╬п╠я┼п╣п╨я┌п╣

    п▒п╬п╩я▄я┬п╦п╫я│я┌п╡п╬ я│п╬п╡я─п╣п╪п╣п╫п╫я▀я┘ п©я─п╬пЁя─п╟п╪п╪ п©я─п╣п╢п©п╬п╩п╟пЁп╟я▌я┌ п╦п╫я┌п╣я─п╟п╨я┌п╦п╡п╫я▀п╧ я─п╣п╤п╦п╪ я─п╟п╠п╬я┌я▀. п▓ я█я┌п╬п╪ я│п╩я┐я┤п╟п╣ п╡я│п╣ п╢п╣п╧я│я┌п╡п╦я▐ п©я─п╬пЁя─п╟п╪п╪я▀ я▐п╡п╩я▐я▌я┌я│я▐ п╬я┌п╡п╣я┌п╬п╪ п╫п╟ я┌п╣ п╦п╩п╦ п╦п╫я▀п╣ п╢п╣п╧я│я┌п╡п╦я▐ п©п╬п╩я▄п╥п╬п╡п╟я┌п╣п╩я▐ Б─■ п©я─п╬пЁя─п╟п╪п╪п╟ я─п╣п╟пЁп╦я─я┐п╣я┌ п╫п╟ п╡п╫п╣я┬п╫п╣п╣ я│п╬п╠я▀я┌п╦п╣: п╫п╟п╤п╟я┌п╦п╣ п╨п╩п╟п╡п╦я┬п╦ п╫п╟ п╨п╩п╟п╡п╦п╟я┌я┐я─п╣, п╨п╫п╬п©п╨п╦ п╫п╟ п╪я▀я┬п╨п╣, п©п╣я─п╣п╪п╣я┴п╣п╫п╦п╣ п╪я▀я┬п╨п╦ п╦ я┌.п©.
    п·п╠я─п╟п╠п╬я┌п╨п╬п╧ п╡я│п╣я┘ я█я┌п╦я┘ я│п╬п╠я▀я┌п╦п╧ п©я─п╦ я┌я─п╟п╢п╦я├п╦п╬п╫п╫п╬п╪ п©я─п╬пЁя─п╟п╪п╪п╦я─п╬п╡п╟п╫п╦п╦ п╬п╠я▀я┤п╫п╬ п╥п╟п╫п╦п╪п╟п╣я┌я│я▐ пЁп╩п╟п╡п╫п╟я▐ п©я─п╬пЁя─п╟п╪п╪п╟. п·п╠я┼п╣п╨я┌п╫п╬-п╬я─п╦п╣п╫я┌п╦я─п╬п╡п╟п╫п╫я▀п╧ п©п╬п╢я┘п╬п╢ п©я─п╣п╢п©п╬п╩п╟пЁп╟п╣я┌ я│п╬п╥п╢п╟п╫п╦п╣ п╡ п╨п╟п╤п╢п╬п╪ п╦п╥ п╬п╠я┼п╣п╨я┌п╫я▀я┘ я┌п╦п©п╬п╡ я│п©п╣я├п╦п╟п╩я▄п╫п╬п╧ п©я─п╬я├п╣п╢я┐я─я▀ HandleEvent Б─■ п╬п╠я─п╟п╠п╬я┌я┤п╦п╨п╟ я│п╬п╠я▀я┌п╦п╧. п╒п╣п╪ я│п╟п╪я▀п╪ "я┐п╠п╦п╡п╟я▌я┌я│я▐ п╢п╡п╟ п╥п╟п╧я├п╟": п╡п╬-п©п╣я─п╡я▀я┘, я│п╬я┘я─п╟п╫я▐п╣я┌я│я▐ п©я─п╦п╫я├п╦п© п╦п╫п╨п╟п©я│я┐п╩я▐я├п╦п╦ п╦, п╡п╬-п╡я┌п╬я─я▀я┘, я┐п©я─п╬я┴п╟п╣я┌я│я▐ п╢п╬я│я┌я┐п© п╨ я█п╩п╣п╪п╣п╫я┌п╟п╪ п╢п╟п╫п╫я▀я┘ п╦ п╪п╣я┌п╬п╢п╟п╪ п╬п╠я┼п╣п╨я┌п╟.
    п╖я┌п╬ п╤п╣ п╬я│я┌п╟п╣я┌я│я▐ п╡ я█я┌п╬п╪ я│п╩я┐я┤п╟п╣ п╫п╟ п╢п╬п╩я▌ пЁп╩п╟п╡п╫п╬п╧ п©я─п╬пЁя─п╟п╪п╪я▀? п╒п╟п╨ п╫п╟п╥я▀п╡п╟п╣п╪я▀п╧ я├п╦п╨п╩ п╬п©я─п╬я│п╟ п╨п╩п╟п╡п╦п╟я┌я┐я─я▀ п╦ п╡я▀п╥п╬п╡ п╬п╠я─п╟п╠п╬я┌я┤п╦п╨п╟ я│п╬п╠я▀я┌п╦п╧ п╢п╩я▐ п╨п╬п╫п╨я─п╣я┌п╫п╬пЁп╬ п╬п╠я┼п╣п╨я┌п╟.
    п▓п╨п╩я▌я┤п╦п╪ п╪п╣я┌п╬п╢ HandleEvent п╡ п╬п╠я┼я▐п╡п╩п╣п╫п╦п╣ я┌п╦п©п╟ TPixel п╦ п╢п╩я▐ п©я─п╬я│я┌п╬я┌я▀ п╡ п╨п╟я┤п╣я│я┌п╡п╣ я│п╬п╠я▀я┌п╦п╧ п╠я┐п╢п╣п╪ я─п╟я│я│п╪п╟я┌я─п╦п╡п╟я┌я▄ я┌п╬п╩я▄п╨п╬ п╡п╡п╬п╢ я│ п╨п╩п╟п╡п╦п╟я┌я┐я─я▀:

    procedure HandleEvent (code : word) ;

    п÷п╟я─п╟п╪п╣я┌я─ code Б─■ я█я┌п╬ п╨п╬п╢ п╫п╟п╤п╟я┌п╬п╧ п╫п╟ п╨п╩п╟п╡п╦п╟я┌я┐я─п╣ п╨п╩п╟п╡п╦я┬п╦.

procedure TPixel.HandleEvent(code : word) ;
begin
    case code of
        LF: Move (x-step, y) ;
        RT: Move (x+step, y) ;
        UP: Move (x, y-step);
        DN: Move(x, y+step) ;
        Ord('1'): ChangeC(1) ;
        Ord('2'): ChangeC(2) ;
        Ord('3'): ChangeC(3) ;
        Ord('4'): ChangeC(4) ;
        Ord('5'): ChangeC(5) ;
        п·rd('6'): ChangeC(6) ;
        Ord('7'): ChangeC(7) ;
end;

    п п╬п╫я│я┌п╟п╫я┌я▀ LF (п╡п╩п╣п╡п╬), RT (п╡п©я─п╟п╡п╬), UP (п╡п╡п╣я─я┘), DN (п╡п╫п╦п╥) я│п╨я─я▀п╡п╟я▌я┌ п╥п╫п╟я┤п╣п╫п╦я▐, п╡п╬п╥п╡я─п╟я┴п╟п╣п╪я▀п╣ я└я┐п╫п╨я├п╦п╣п╧ Rdkey п©я─п╦ п╫п╟п╤п╟я┌п╦п╦ п╫п╟ п╨п╩п╟п╡п╦я┬п╦ я┐п©я─п╟п╡п╩п╣п╫п╦я▐  ,б╝ ,б╛ , ¯.

function Rdkey : word;
var kod : word;
begin
    kod:=0rd (Readkey) ;
    if kod=0 then kod:=256+0rd (Readkey) ;
    Rdkey:=kod
end;

    п╜я┌п╦ п╥п╫п╟я┤п╣п╫п╦я▐ п╦ п╢я─я┐пЁп╦п╣, п╨п╬я┌п╬я─я▀п╣ п╪п╬пЁя┐я┌ п©п╬п╫п╟п╢п╬п╠п╦я┌я▄я│я▐ п©я─п╦ п╟п╫п╟п╩п╦п╥п╣, п╢п╬п╩п╤п╫я▀ п╠я▀я┌я▄ п╬п©п╦я│п╟п╫я▀ п╡ я─п╟п╥п╢п╣п╩п╣ const пЁп╩п╟п╡п╫п╬п╧ п©я─п╬пЁя─п╟п╪п╪я▀:

const
    LF=331;
    RT=333;
    UP=328;
    DN=336;
    Esc=27;
.  .  .

    п≈п╟п╢п╟п╫п╦п╣ 1. п²п╟п©п╦я┬п╦я┌п╣ п╪п╣я┌п╬п╢ HandleEvent п╢п╩я▐ п╬п╠я┼п╣п╨я┌п╫п╬пЁп╬ я┌п╦п©п╟ п╒Circle.

    пёп╨п╟п╥п╟п╫п╦п╣
    п²п╣п©п╬я│я─п╣п╢я│я┌п╡п╣п╫п╫п╬п╡ п╪п╣я┌п╬п╢п╣ TCircle.HandieEvent п©я─п╬п╟п╫п╟п╩п╦п╥п╦я─я┐п╧я┌п╣ я┌п╬п╩я▄п╨п╬ п╨п╩п╟п╡п╦я┬п╦, п╫п╟п╥п╫п╟я┤п╣п╫п╫я▀п╣ п╢п╩я▐ п╦п╥п╪п╣п╫п╣п╫п╦я▐ я├п╡п╣я┌п╟ п╬п╨я─я┐п╤п╫п╬я│я┌п╦. п▓п╬ п╡я│п╣я┘ п╬я│я┌п╟п╩я▄п╫я▀я┘ я│п╩я┐я┤п╟я▐я┘ п©п╬я─я┐я┤п╦я┌п╣ я█я┌п╬ п╪п╣я┌п╬п╢я┐ TPixel.HandleEvent.

    п÷я─п╦п╡п╣п╢п╣п╪ п©п╬п╩п╫п╬я│я┌я▄я▌ п©я─п╬пЁя─п╟п╪п╪я┐ "пёп©я─п╟п╡п╩п╣п╫п╦п╣ п╬п╨я─я┐п╤п╫п╬я│я┌я▄я▌".

uses Crt, Graph;
const
    LF=331;
    RT=333;
    UP=328;
    DN=336;
    Esc=27;
var step : word;
{----------------------- Rdkey -----------------------}
function Rdkey : word;
var kod : word;
begin
    kod:=0rd (Readkey) ;
    if kod=0 then kod:=256+0rd(Readkey) ;
    Rdkey:=kod;
end;
{----------------------- Tpoint -----------------------}
type TPoint = object
    x, я┐ : integer;
    procedure Init (x0, y0 : integer) ;
end;
{----------------------- TPixel -----------------------}
type TPixel = object (TPoint)
    color : word;
    constructor Init (x0, y0, c0 : integer);
    protedure Show; virtual;
    procedure Hide; virtual;
    procedure Move (newX, newY: integer) ;
    procedure ChangeC (newC: word) ;
    procedure HandleEvent (code : word);
virtual;
end;
{----------------------- TCircle -----------------------}
type TCircle = object (TPixel)
    R : word;
    constructor Init (x0, y0, r0, c0 : word) ;
    procedure Show; virtual;
    procedure Hide; virtual;
    procedure ChangeR (newR: integer);
    procedure HandleEvent (code : word);
virtual;
end;
{--------------------------------------------------------}
procedure TPoint.Init (x0, y0 : integer) ;
begin
    x:=x0; y:=y0;
end;

constructor TPixel.Init(x0, y0 c0 : integer;
begin
   {п╡я▀п╥я▀п╡п╟п╣п╪ п╪п╣я┌п╬п╢ п╠п╟п╥п╬п╡п╬пЁп╬ я┌п╦п©п╟}
     inherited Init(x0, y0) ;
    color:=c0;
end;
procedure TPixel.Show;
begin
    putpixel (x, y, color)
end;
procedure TPixel.Hide;
begin
    putpixel (x, y, getbkcolor)
end;
procedure TPixel.Move (newX, newY: integer);
begin
    Hide;
    x:=newX; y:=newY;
    Show
end;
procedure TPixel.ChangeC(newC: word) ;
begin
    color:=newC;
    Show;
end;
procedure TPixel.HandleEvent (code : word) ;
begin
    case code of
        LF: Move (x-step, y) ;
        RT: Move (x+step, y) ;
        UP: Move (x, y-step) ;
        DN: Move (x, y+step);
        Ord( '1') : ChangeC (1) ;
        Ord('2') : ChangeC (2) ;
        Ord ('3') : ChangeC (3) ;
        Ordt ('4') : ChangeC (4) ;
        Ord ('5') : ChangeC (5) ;
         Ord ('6') : ChangeC (6) ;
        Ord ('7') : ChangeC (7) ;
    end;
end;
constructor TCircle.Init (x0, y0, r0, c0 : word) ;
begin
    {п╡я▀п╥я▀п╡п╟п╣п╪ п╪п╣я┌п╬п╢ п╠п╟п╥п╬п╡п╬пЁп╬ я┌п╦п©п╟}
    inherited Init (x0, y0, c0) ;
    R:=r0;
end;
procedure TCircle.Show;
begin
    SetColor (color) ;
    Circle (x, y, R);
end;
procedure TCircle.Hide;
begin
    SetColor (getbkcolor) ;
    Circle (x, y,R);
end;
procedure TCircle.ChangeR (newR: integer);
begin
    if newR>=0 then begin
        Hide;
        R:=newR;
         Show;
    end;
end;
procedure TCircle.HandleEvent (code : word);
begin
    case code of
        Ord ('+') : ChangeR (R+step) ;
       Ord ('-') : ChangeR (R-step) ;
        else inherited HandleEvent (code) ;
    end;
end;
{------------- main -------------}
var  Gd, Gm, errCode : integer;
        ch : word;
        C: TCircle;
begin
    {---- п╦п╫п╦я├п╦п╟п╩п╦п╥п╟я├п╦я▐ пЁя─п╟я└п╦п╨п╦ -----}
    Gd:=-DETECT;
    InitGraph (Gd, Gm, '');
    errCode := GraphResult;
    if errCode <> grOK then begin
        writeln (GraphErrorMsg (errCode) ) ;
         exit;
    end;
    {--------------------------------------}
    step:=5;
    C.Init (100, 100, 20, 3) ;
    п║.Show;
    repeat
        ch:=Rdkey;
        C.HandleEvent (ch)
    until ch=Esc;
    {--------------------------------------}
    CloseGraph;
end.

    п≈п╟п╢п╟п╫п╦п╣ 2. п≤п╥п╪п╣п╫п╦я┌п╣ п╪п╣я┌п╬п╢я▀ TCircle.Show п╦ Tcircle.Hide я┌п╟п╨, я┤я┌п╬п╠я▀ п╬п╠п╣я│п©п╣я┤п╦я┌я▄ я┐п©я─п╟п╡п╩п╣п╫п╦п╣ п╬п╨я─я┐п╤п╫п╬я│я┌я▄я▌ п╠п╣п╩п╬пЁп╬ я├п╡п╣я┌п╟, п╥п╟ п╨п╬я┌п╬я─п╬п╧ п╬я│я┌п╟п╣я┌я│я▐ я├п╡п╣я┌п╫п╬п╧ я│п╩п╣п╢. п╕п╡п╣я┌ я│п╩п╣п╢п╟ п╪п╬п╤п╫п╬ п╦п╥п╪п╣п╫я▐я┌я▄ п╫п╟п╤п╟я┌п╦п╣п╪ я┌п╣я┘ п╤п╣ п╨п╩п╟п╡п╦я┬, я┤я┌п╬ п╦ п╡ п╫п╟п©п╦я│п╟п╫п╫п╬п╧ п╡я▀я┬п╣ п©я─п╬пЁя─п╟п╪п╪п╣.

    п≈п╟п╢п╟п╫п╦п╣ 3. п═п╟п╥я─п╟п╠п╬я┌п╟п╧я┌п╣ п╫п╬п╡я▀п╧ я┌п╦п©, п╨п╬я┌п╬я─я▀п╧ я▐п╡п╩я▐п╣я┌я│я▐ п©я─п╬п╦п╥п╡п╬п╢п╫я▀п╪ п╬я┌ п╬п╢п╫п╬пЁп╬ п╦п╥ п╬п╠я┼п╣п╨я┌п╫я▀я┘ я┌п╦п©п╬п╡ п╦п╣я─п╟я─я┘п╦п╦ (п╨п╡п╟п╢я─п╟я┌, п©я─я▐п╪п╬я┐пЁп╬п╩я▄п╫п╦п╨, я█п╩п╩п╦п©я│, п╥п╟п╨я─п╟я┬п╣п╫п╫п╟я▐ п╬п╨я─я┐п╤п╫п╬я│я┌я▄, я┬п╣я│я┌п╦я┐пЁп╬п╩я▄п╫п╦п╨ п╦ я┌.п╢.).

    п≈п╟п╢п╟п╫п╦п╣ 4. п═п╟п╥я─п╟п╠п╬я┌п╟п╧я┌п╣ п╫п╬п╡я▀п╧, п╫п╣ п╡я┘п╬п╢я▐я┴п╦п╧ п╡ п╦п╣я─п╟я─я┘п╦я▌, я┌п╦п©, п╨п╬я┌п╬я─я▀п╧ п╡ п╨п╟я┤п╣я│я┌п╡п╣ я█п╩п╣п╪п╣п╫я┌п╬п╡ п╢п╟п╫п╫я▀я┘ я│п╬п╢п╣я─п╤п╦я┌ п╢п╡п╟ (п╦п╩п╦ п╠п╬п╩п╣п╣) п╬п╠я┼п╣п╨я┌п╟ п╦п╣я─п╟я─я┘п╦п╦. п²п╟п©я─п╦п╪п╣я─, "п╨п╬п╩я▄я├п╬" Б─■ п╢п╡п╣ п╨п╬п╫я├п╣п╫я┌я─п╦я┤п╣я│п╨п╦п╣ п╬п╨я─я┐п╤п╫п╬я│я┌п╦, "пЁп╟п╧п╨п╟" Б─■ я┬п╣я│я┌п╦я┐пЁп╬п╩я▄п╫п╦п╨ я│ п╬я┌п╡п╣я─я│я┌п╦п╣п╪, "п©я┐пЁп╬п╡п╦я├п╟", "я─п╬п╤п╦я├п╟" п╦ я┌.п╢.

    п÷я─п╬п╣п╨я┌ "п≤пЁя─п╟ "15"

    п≤я│п©п╬п╩я▄п╥я┐п╣п╪ я│п╬п╥п╢п╟п╫п╫я▀п╣ п╬п╠я┼п╣п╨я┌п╫я▀п╣ я┌п╦п©я▀ п©я─п╦ п╫п╟п©п╦я│п╟п╫п╦п╦ п©я─п╬пЁя─п╟п╪п╪я▀ п╦пЁя─я▀-пЁп╬п╩п╬п╡п╬п╩п╬п╪п╨п╦. п÷я─п╦п╢я┐п╪п╟п╫п╫п╟я▐ п║я█п╪п╬п╪ п⌡п╬п╧п╢п╬п╪, п╬п╫п╟ п╠я▀п╩п╟ п╬я┤п╣п╫я▄ п©п╬п©я┐п╩я▐я─п╫п╟ п╡ я│п╣п╪п╦п╢п╣я│я▐я┌я▀я┘ пЁп╬п╢п╟я┘ п©я─п╬я┬п╩п╬пЁп╬ п╡п╣п╨п╟, п╡п©я─п╬я┤п╣п╪, п╦ п╡ п╫п╟я┬п╦ п╢п╫п╦ п╢п╣я┌п╦ п╦ п╪п╫п╬пЁп╦п╣ п╡п╥я─п╬я│п╩я▀п╣ я│ я┐п╢п╬п╡п╬п╩я▄я│я┌п╡п╦п╣п╪ п╦пЁя─п╟я▌я┌ п╡ я█я┌я┐ п╦пЁя─я┐.
    "п≤пЁя─п╟ "15" п©я─п╣п╢я│я┌п╟п╡п╩я▐п╣я┌ я│п╬п╠п╬п╧ 15 я└п╦я┬п╣п╨, п╫п╟ п╨п╬я┌п╬я─я▀я┘ п╫п╟п©п╦я│п╟п╫я▀ я┤п╦я│п╩п╟ п╬я┌ 1 п╢п╬ 15, я┐п╩п╬п╤п╣п╫п╫я▀п╣ п╡ п╨п╬я─п╬п╠п╬я┤п╨я┐ п╡ я│п╩я┐я┤п╟п╧п╫п╬п╪ п©п╬я─я▐п╢п╨п╣. п²я┐п╤п╫п╬, п©п╣я─п╣п╢п╡п╦пЁп╟я▐ я└п╦я┬п╨п╦ п╫п╟ я│п╡п╬п╠п╬п╢п╫п╬п╣ п╪п╣я│я┌п╬, п╫п╬ п╫п╣ п╡я▀п╫п╦п╪п╟я▐ п╦я┘ п╦п╥ п╨п╬я─п╬п╠п╬я┤п╨п╦, я─п╟я│я│я┌п╟п╡п╦я┌я▄, я┌п╟п╨, п╨п╟п╨ п©п╬п╨п╟п╥п╟п╫п╬ п╫п╟ я─п╦я│я┐п╫п╨п╣.
    п·я│п╫п╬п╡п╫я▀п╪ п╬п╠я┼п╣п╨я┌п╬п╪ п╡ п╫п╟я┬п╣п╧ п©я─п╬пЁя─п╟п╪п╪п╣ п╠я┐п╢п╣я┌ п╨п╡п╟п╢я─п╟я┌п╫п╟я▐ я└п╦я┬п╨п╟ я│ п╫п╟п╢п©п╦я│я▄я▌ (п╫п╟п╢п©п╦я│я▄ п╪п╬п╤п╣я┌ п╠я▀я┌я▄ я┌п╬п╩я▄п╨п╬ п╥п╟п©п╦я│я▄я▌ я├п╣п╩п╬пЁп╬ я┤п╦я│п╩п╟). п·п©п╦я┬п╣п╪ я█я┌п╬я┌ п╬п╠я┼п╣п╨я┌ п╨п╟п╨ я┌п╦п© TSquare. п÷п╬п╫п╟п╢п╬п╠я▐я┌я│я▐ я┌п╟п╨п╤п╣ п╨п╬п╬я─п╢п╦п╫п╟я┌я▀ я┌п╬я┤п╨п╦, п╬п©я─п╣п╢п╣п╩я▐я▌я┴п╣п╧ п©п╬п╩п╬п╤п╣п╫п╦п╣ я└п╦я┬п╨п╦, п╣п╣ я├п╡п╣я┌ п╦ я─п╟п╥п╪п╣я─. п╖я┌п╬п╠я▀ п╫п╣ п©п╦я│п╟я┌я▄ п╫п╬п╡я▀п╧ п╬п╠я┼п╣п╨я┌ "я│ п╫я┐п╩я▐", п╬п╠я┼я▐п╡п╦п╪ п╣пЁп╬ п©п╬я┌п╬п╪п╨п╬п╪ я┌п╦п©п╟ TCircle, я┌п╬пЁп╢п╟ п╬я│я┌п╟п╫п╣я┌я│я▐ я┌п╬п╩я▄п╨п╬ п╢п╬п╠п╟п╡п╦я┌я▄ п©п╬п╩п╣ text п╦ п╫п╟п©п╦я│п╟я┌я▄ п©я─п╬я├п╣п╢я┐я─я▀ Show п╦ Hide.

type TSquare = object (TCircle)
    text : string;
    constructor Init (x0, y0, a0, c0 : word; text0 : string);
    procedure Show; virtual;
    procedure Hide; virtual;
end;
constructor TSquare.Init (x0, y0, r0, c0 : word; text0: string) ;
begin
    TCircle.Init (x0, y0, r0, c0) ;
    text:=text0
end;

                                           
    п║п╟п╪п╟ я└п╦я┬п╨п╟ Б─■ я█я┌п╬ п╥п╟п╨я─п╟я┬п╣п╫п╫я▀п╧ я├п╡п╣я┌п╬п╪ color п╨п╡п╟п╢я─п╟я┌ я│ п╠п╣п╩п╬п╧ я─п╟п╪п╨п╬п╧ п╦ п╠п╣п╩я▀п╪ я┌п╣п╨я│я┌п╬п╪. п≈п╫п╟я┤п╣п╫п╦я▐ я┘, я┐ Б─■ п╨п╬п╬я─п╢п╦п╫п╟я┌я▀ я├п╣п╫я┌я─п╟ п╨п╡п╟п╢я─п╟я┌п╟, п╟ п╣пЁп╬ я│я┌п╬я─п╬п╫п╟ я─п╟п╡п╫п╟ 2R.
    п²п╟п©п╦я┬п╣п╪ п╢п╩я▐ п╫п╬п╡п╬пЁп╬ я┌п╦п©п╟ п╬п╠я▐п╥п╟я┌п╣п╩я▄п╫я▀п╣ п©я─п╬я├п╣п╢я┐я─я▀ я─п╦я│п╬п╡п╟п╫п╦я▐ п╦ я│я┌п╦я─п╟п╫п╦я▐ п╬п╠я┼п╣п╨я┌п╟. п║я┌п╦я─п╟я┌я▄ я└п╦я┬п╨я┐ п╠я┐п╢п╣п╪ п╨п╡п╟п╢я─п╟я┌п╬п╪ я┌п╬пЁп╬ п╤п╣ я├п╡п╣я┌п╟, п╫п╬ я│, п╢я─я┐пЁп╦п╪ я│я┌п╦п╩п╣п╪ п╥п╟п©п╬п╩п╫п╣п╫п╦я▐ ("я│п╣я┌п╬я┤п╨п╬п╧"):

procedure TSquare.Show;
begin
    {я─п╦я│я┐п╣п╪ я└п╬п╫ я└п╦я┬п╨п╦}
    SetFillStyle (1, color) ;
    bar (x-R,y-R,x+R,y+R);
    {я─п╦я│я┐п╣п╪ я─п╟п╪п╨я┐}
    SetColor (15);
    rectangle (x-R, y-R, x+R, y+R);
    {п╡я▀п╡п╬п╢п╦п╪ я┌п╣п╨я│я┌)
     SetTextStyle (0, 0, R div 8);
    SetTextJustify (CenterText, CenterText) ;
    OutTextXY(x, y, text)
end;
procedure TSquare.Hide;
begin
    SetFillStyle (8, color);
    bar (x-R, y-R, x+R, y+R)
end;

    п▓я│п╣ п╬я│я┌п╟п╩я▄п╫я▀п╣ п©я─п╬я├п╣п╢я┐я─я▀ (п╡ я┌п╬п╪ я┤п╦я│п╩п╣ п╦ п╬п╠я─п╟п╠п╬я┌я┤п╦п╨ я│п╬п╠я▀я┌п╦п╧ HandleEvent) п╠я┐п╢п╣п╪ п╫п╟я│п╩п╣п╢п╬п╡п╟я┌я▄ п╦п╥ п╠п╟п╥п╬п╡п╬пЁп╬ я┌п╦п©п╟.

    п╒п╣п©п╣я─я▄ п╥п╟п╧п╪п╣п╪я│я▐ п╫п╟п©п╦я│п╟п╫п╦п╣п╪ пЁп╩п╟п╡п╫п╬п╧ п©я─п╬пЁя─п╟п╪п╪я▀. п п╬я─п╬п╠п╬я┤п╨п╟, п╡ п╨п╬я┌п╬я─я┐я▌ я┐п╩п╬п╤п╣п╫я▀ я└п╦я┬п╨п╦, п╪п╬п╢п╣п╩п╦я─я┐п╣я┌я│я▐ п╢п╡я┐я┘п╪п╣я─п╫я▀п╪ п╪п╟я│я│п╦п╡п╬п╪. п²п╟я┤п╟п╩я▄п╫п╟я▐ я─п╟я│я│я┌п╟п╫п╬п╡п╨п╟ п╪п╬п╤п╣я┌ п╡я▀п╠п╦я─п╟я┌я▄я│я▐ я│п╩я┐я┤п╟п╧п╫я▀п╪ п╬п╠я─п╟п╥п╬п╪, п╫п╬ я┌п╬пЁп╢п╟ п©я─п╦п╪п╣я─п╫п╬ п╡ п©п╬п╩п╬п╡п╦п╫п╣ я│п╩я┐я┤п╟п╣п╡ пЁп╬п╩п╬п╡п╬п╩п╬п╪п╨п╟ п╫п╣ п╠я┐п╢п╣я┌ п╦п╪п╣я┌я▄ я─п╣я┬п╣п╫п╦я▐. п÷п╬п©я─п╬я│п╦я┌п╣ п╡п╟я┬п╦я┘ я┐я┤п╣п╫п╦п╨п╬п╡ п╬п╠я┼я▐я│п╫п╦я┌я▄ я█я┌п╬я┌ я└п╟п╨я┌. п▓ п╨п╟я┤п╣я│я┌п╡п╣ п©п╬п╢я│п╨п╟п╥п╨п╦ п©я─п╣п╢п╩п╬п╤п╦я┌п╣ п╦п╪ "п╫п╣я─п╟я│я│я┌п╟п╡п╩я▐п╣п╪я▀п╧" п╡п╟я─п╦п╟п╫я┌ п╦ п©п╬п©я─п╬я│п╦я┌п╣ п╦я┘ п©я─п╬п╟п╫п╟п╩п╦п╥п╦я─п╬п╡п╟я┌я▄ п╦я│я┘п╬п╢п╫п╬п╣ я│п╬я│я┌п╬я▐п╫п╦п╣ я└п╦я┬п╣п╨. пёп╢п╬п╠п╫п╣п╣ п╦я│п©п╬п╩я▄п╥п╬п╡п╟я┌я▄ п╢я─я┐пЁп╬п╧ п©п╬п╢я┘п╬п╢: я│п╩я┐я┤п╟п╧п╫я▀п╪п╦ п©п╣я─п╣п╢п╡п╦п╤п╣п╫п╦я▐п╪п╦ я└п╦я┬п╣п╨ п╫п╟я─я┐я┬п╦я┌я▄ п╫п╟я┤п╟п╩я▄п╫я┐я▌ я─п╟я│я│я┌п╟п╫п╬п╡п╨я┐.
    п≤я┌п╟п╨, п╬п╠я┼я▐п╡п╦п╪ п╡ пЁп╩п╟п╡п╫п╬п╧ п©я─п╬пЁя─п╟п╪п╪п╣ п╢п╡я┐я┘п╪п╣я─п╫я▀п╧ п╪п╟я│я│п╦п╡ я└п╦я┬п╣п╨:

    п═: array [1..4, 1..4] of TSquare;

п╦ п╦п╫п╦я├п╦п╟п╩п╦п╥п╦я─я┐п╣п╪ п╣пЁп╬:

size:=38; step:=size+2;
for i:=1to 4 do begin
    for j:=1 to 4 do begin
        x:=100+(j-1) *step;
        y:=100+ (i-1) *step;
        if (i=4) and (j=4) then begin
              P[i, j].Init (x, y, size div 2, 7,'');
            P[i, j].Hide end
        else begin
            k:=4* (i-1)+j;
            Str (k, sym) ;
            P[i, j].Init (x, y, size div 2, 7, sym);
            P[i, j].Show
        end
    end
end;

    п²п╟п©п╦я┬п╣п╪ п╬я│п╫п╬п╡п╫п╬п╧ я├п╦п╨п╩ п©п╬п╩я┐я┤п╣п╫п╦я▐ я│п╬п╠я▀я┌п╦я▐ п╬я┌ п╨п╩п╟п╡п╦п╟я┌я┐я─я▀ п╦ п╣пЁп╬ п╬п╠я─п╟п╠п╬я┌п╨п╦. п⌠п╩п╟п╡п╫п╟я▐ п╥п╟п╢п╟я┤п╟ Б─■ п©п╬п╫я▐я┌я▄, п╨ п╨п╟п╨п╬п╧ я└п╦я┬п╨п╣ п╬я┌п╫п╬я│п╦я┌я│я▐ я│п╬п╠я▀я┌п╦п╣ ("п╨п╬п╪п╟п╫п╢п╟"), п©п╬п╩я┐я┤п╣п╫п╫п╬п╣ я│ п╨п╩п╟п╡п╦п╟я┌я┐я─я▀. п╒п╣п╬я─п╣я┌п╦я┤п╣я│п╨п╦ п©п╬п╩я▄п╥п╬п╡п╟я┌п╣п╩я▄ п╢п╬п╩п╤п╣п╫ я│п╫п╟я┤п╟п╩п╟ п╡я▀п╠я─п╟я┌я▄ я└п╦я┬п╨я┐ ("п╢п╬я┌я─п╬п╫я┐я┌я▄я│я▐" п╢п╬ п╫п╣п╣), п╟ п©п╬я┌п╬п╪ я┐п╤п╣ п©п╣я─п╣п╢п╡п╦п╫я┐я┌я▄ п╣п╣. п²п╬ п╡ п╢п╟п╫п╫п╬п╪ я│п╩я┐я┤п╟п╣ п╥п╟п╢п╟я┤п╟ я┐п©я─п╬я┴п╟п╣я┌я│я▐, я┌п╟п╨ п╨п╟п╨ п╡ п╩я▌п╠п╬п╧ я│п╦я┌я┐п╟я├п╦п╦ п╣я│я┌я▄ п╫п╣ п╠п╬п╩п╣п╣ п╬п╢п╫п╬п╧ я└п╦я┬п╨п╦, п╨п╬я┌п╬я─п╟я▐ п╪п╬п╤п╣я┌ п╢п╡п╦пЁп╟я┌я▄я│я▐ п╡ п╥п╟п╢п╟п╫п╫п╬п╪ п╫п╟п©я─п╟п╡п╩п╣п╫п╦п╦. п╜я┌п╟ я└п╦я┬п╨п╟ (п©п╬п╩п╣ я│ п╦п╫п╢п╣п╨я│п╟п╪п╦ i, j) п╫п╟я┘п╬п╢п╦я┌я│я▐ п╡ п©я─п╬я┌п╦п╡п╬п©п╬п╩п╬п╤п╫п╬п╪ п╥п╟п╢п╟п╫п╫п╬п╪я┐ п╫п╟п©я─п╟п╡п╩п╣п╫п╦п╦ п╬я┌ п©я┐я│я┌п╬п╧ п╨п╩п╣я┌п╨п╦ п©п╬п╩я▐ (п╣п╣ п╦п╫п╢п╣п╨я│я▀ п╪я▀ п╬п╠п╬п╥п╫п╟я┤п╦п╪ я┤п╣я─п╣п╥ i₀, j₀).

i0:=4; j0:=4;
i:=i0; j:=j0;
repeat
    flag:=true;
    ch:=Rdkey;
    { п╟п╫п╟п╩п╦п╥п╦я─я┐п╣п╪ п╫п╟п╤п╟я┌я┐я▌ п╨п╩п╟п╡п╦я┬я┐ }
    case ch of
        LF: if j0<4 then j:=j0+1;
        RT: if j0>1 then j:=j0-1;
        UP: if i0<4 then i:=i0+1;
        DN: if i0>1 then i:=i0-1;
        else flag:=false
    end;

if flag then begin
        P[i, j].HandleEvent (ch) ;
        P[i0, j0]:=P[i, j];
        i0:=i; j0:=j
    end
    { п╡я▀я┘п╬п╢ п╦п╥ я├п╦п╨п╩п╟ - п©п╬ п╨п╩п╟п╡п╦я┬п╣ Esc }
until ch=Esc;

    п╓п╩п╟пЁ п╠п╩п╬п╨п╦я─я┐п╣я┌ п╡я▀п╥п╬п╡ п╬п╠я─п╟п╠п╬я┌я┤п╦п╨п╟ я│п╬п╠я▀я┌п╦п╧ п╦ п╡ я┌п╬п╪ я│п╩я┐я┤п╟п╣, п╣я│п╩п╦ п╫п╟п╤п╟я┌п╟ "п©п╬я│я┌п╬я─п╬п╫п╫я▐я▐" п╨п╩п╟п╡п╦я┬п╟, п╦ п╡ я┌п╬п╪ я│п╩я┐я┤п╟п╣, п╣я│п╩п╦ п╫п╦ п╬п╢п╫п╟ я└п╦я┬п╨п╟ п╡ п╢п╟п╫п╫п╬п╪ п╫п╟п©я─п╟п╡п╩п╣п╫п╦п╦ п╢п╡п╦пЁп╟я┌я▄я│я▐ п╫п╣ п╪п╬п╤п╣я┌. п я─п╬п╪п╣ п©п╣я─п╣п╪п╣я┴п╣п╫п╦я▐ я└п╦я┬п╨п╦, п╪я▀ п╬п╠я▐п╥п╟п╫я▀ я┌п╟п╨п╤п╣ п╬п╠п╫п╬п╡п╦я┌я▄ п╦п╫я└п╬я─п╪п╟я├п╦я▌ п╬ я─п╟п╠п╬я┤п╣п╪ п©п╬п╩п╣.
    п■п╩я▐ п©п╬п╩я┐я┤п╣п╫п╦я▐ п╫п╟я┤п╟п╩я▄п╫п╬п╧ я─п╟я│я│я┌п╟п╫п╬п╡п╨п╦ п╦я│п©п╬п╩я▄п╥я┐п╣п╪ я┐п╤п╣ п╫п╟п©п╦я│п╟п╫п╫я▀п╧ я├п╦п╨п╩. п÷п╬я│я┌п╟я─п╟п╣п╪я│я▐ п╫п╣я│п╨п╬п╩я▄п╨п╬ я─п╟п╥ "п©п╬п╢я│я┐п╫я┐я┌я▄" п©я─п╬пЁя─п╟п╪п╪п╣ я│п╩я┐я┤п╟п╧п╫п╬ п╡я▀п╠я─п╟п╫п╫п╬п╣ я│п╬п╠я▀я┌п╦п╣ Б─■ "п╨п╬п╪п╟п╫п╢я┐" п©п╣я─п╣п╪п╣я┴п╣п╫п╦я▐ я└п╦я┬п╨п╦. п╖я┌п╬п╠я▀ п╫п╣ я│п╦п╩я▄п╫п╬ я┐п╢п╩п╦п╫я▐я┌я▄ я┌п╣п╨я│я┌ п©я─п╬пЁя─п╟п╪п╪я▀, п╦я│п©п╬п╩я▄п╥я┐п╣п╪ п╥п╫п╟я┤п╣п╫п╦п╣ п©п╣я─п╣п╪п╣п╫п╫п╬п╧ nwsp (п╨п╬п╩п╦я┤п╣я│я┌п╡п╟ п╫п╟я┤п╟п╩я▄п╫я▀я┘ п©п╣я─п╣п╪п╣я┴п╣п╫п╦п╧ я└п╦я┬п╣п╨) п╡ п╨п╟я┤п╣я│я┌п╡п╣ п╨я─п╦я┌п╣я─п╦я▐ п╡я▀п╠п╬я─п╟. п²п╦п╤п╣ п©я─п╦п╡п╣п╢п╣п╫ я└я─п╟пЁп╪п╣п╫я┌ п©я─п╬пЁя─п╟п╪п╪я▀, п╨п╬я┌п╬я─я▀п╧ п©п╬я┌я─п╣п╠я┐п╣я┌я│я▐ п╢п╬п╠п╟п╡п╦я┌я▄ п╡ п╬я│п╫п╬п╡п╫п╬п╧ я├п╦п╨п╩ п╡п╪п╣я│я┌п╬ п╨п╬п╪п╟п╫п╢я▀ ch: =Rdkey.

if nwsp>0 then begin
    { я│п╩я┐я┤п╟п╧п╫я▀п╧ п╡я▀п╠п╬я─ }
    ch:=Random(4);
    case ch of
    0: ch:=lf;
        1: ch:=rt;
        2: ch:=up;
        3: ch:=dn;
    end;
    nwsp:=nwsp-1;
end else ch:=Rdkey; {п╡п╡п╬п╢ "п╨п╬п╪п╟п╫п╢я▀" я│ п╨п╩п╟п╡п╦п╟я┌я┐я─я▀}

    п÷п╬п╫я▐я┌п╫п╬, я┤я┌п╬ п╢п╬ п╫п╟я┤п╟п╩п╟ я├п╦п╨п╩п╟ п╫п╣п╬п╠я┘п╬п╢п╦п╪п╬ п╦п╫п╦я├п╦п╟п╩п╦п╥п╦я─п╬п╡п╟я┌я▄ п©п╣я─п╣п╪п╣п╫п╫я┐я▌ nwsp п╦ п╢п╟я┌я┤п╦п╨ я│п╩я┐я┤п╟п╧п╫я▀я┘ я┤п╦я│п╣п╩.

    п≈п╟п╢п╟п╫п╦п╣ 1. п²п╟п©п╦я┬п╦я┌п╣ п©я─п╬пЁя─п╟п╪п╪я┐ п╦пЁя─я▀ я├п╣п╩п╦п╨п╬п╪. п║п╢п╣п╩п╟п╧я┌п╣ п╥п╟я│я┌п╟п╡п╨я┐, п╬я└п╬я─п╪п╦я┌п╣ я─п╟п╠п╬я┤п╣п╣ п©п╬п╩п╣, п╡я▀п╡п╣п╢п╦я┌п╣ п╫п╟ п╫п╣пЁп╬ п╦п╫я└п╬я─п╪п╟я├п╦я▌ п╬ п╨п╬п╩п╦я┤п╣я│я┌п╡п╣ я┘п╬п╢п╬п╡ п╦ п╥п╟я┌я─п╟я┤п╣п╫п╫п╬п╪ п╡я─п╣п╪п╣п╫п╦.

    3п╟п╢п╟п╫п╦п╣ 2. п≈п╟п╢п╟п╧я┌п╣ п╫п╟я┤п╟п╩я▄п╫я┐я▌ я─п╟я│я│я┌п╟п╫п╬п╡п╨я┐ п╡ я┌п╣п╨я│я┌п╬п╡п╬п╪ я└п╟п╧п╩п╣. пёя│я┌я─п╬п╧я┌п╣ я│п╬я─п╣п╡п╫п╬п╡п╟п╫п╦п╣ Б─■ п╨я┌п╬ п╠я▀я│я┌я─п╣п╣ я─п╣я┬п╦я┌ я█я┌я┐ пЁп╬п╩п╬п╡п╬п╩п╬п╪п╨я┐.

    п≈п╟п╢п╟п╫п╦п╣ 3. п°п╬п╢п╦я└п╦я├п╦я─я┐п╧я┌п╣ п©я─п╬пЁя─п╟п╪п╪я┐ п╦пЁя─я▀ я┌п╟п╨, я┤я┌п╬п╠я▀ п╡п╪п╣я│я┌п╬ я┤п╦я│п╣п╩ п╫п╟ я└п╦я┬п╨п╟я┘ п©п╬я▐п╡п╩я▐п╩п╦я│я▄ п╠я┐п╨п╡я▀ п╫п╣п╨п╬я┌п╬я─п╬п╧ я└я─п╟п╥я▀, п╨п╬я┌п╬я─п╟я▐ п╥п╟я─п╟п╫п╣п╣ я│п╬п╬п╠я┴п╟п╣я┌я│я▐ п╦пЁя─п╬п╨я┐. п╒п╬пЁп╢п╟, я─п╣я┬п╦п╡ пЁп╬п╩п╬п╡п╬п╩п╬п╪п╨я┐, п╪я▀ я│п╪п╬п╤п╣п╪ п╣п╣ п©я─п╬я┤п╦я┌п╟я┌я▄.

    п≈п╟п╪п╣я┤п╟п╫п╦п╣. п∙я│п╩п╦ п╡ п©я─п╦п╢я┐п╪п╟п╫п╫п╬п╧ я└я─п╟п╥п╣ п╫п╣п╨п╬я┌п╬я─я▀п╣ я│п╦п╪п╡п╬п╩я▀ я│п╬п╡п©п╟п╢п╟я▌я┌, я─п╣я┬п╣п╫п╦п╣ пЁп╬п╩п╬п╡п╬п╩п╬п╪п╨п╦ я│п╬п╢п╣я─п╤п╦я┌ п╩п╬п╡я┐я┬п╨я┐: п╣я│п╩п╦ п╬п╢п╦п╫ п╦п╥ я│п╬п╡п©п╟п╢п╟я▌я┴п╦я┘ я│п╦п╪п╡п╬п╩п╬п╡ п©п╬я│я┌п╟п╡п╦я┌я▄ п╫п╣ п╫п╟ я│п╡п╬п╣ п╪п╣я│я┌п╬, я┌п╬ я─п╣я┬п╦я┌я▄ п╥п╟п╢п╟я┤я┐ п╫п╣ я┐п╢п╟я│я┌я│я▐. п÷п╬я█п╨я│п©п╣я─п╦п╪п╣п╫я┌п╦я─я┐п╧я┌п╣, п╫п╟п©я─п╦п╪п╣я─, я│ я┌п╟п╨п╬п╧ я└я─п╟п╥п╬п╧: "п║п⌡п·п² п║п÷п≤п╒ п║п╒п·п╞, п░ п▓п╚?" (п╫п╬ п╠п╣п╥ п╥п╫п╟п╨п╬п╡ п©я─п╣п©п╦п╫п╟п╫п╦я▐ п╦ п©я─п╬п╠п╣п╩п╬п╡):

    п≈п╟п╢п╟п╫п╦п╣ 4. п═п╟п╥я─п╟п╠п╬я┌п╟п╧я┌п╣ я│п╡п╬п╧ п©я─п╬п╣п╨я┌, п╡ п╨п╬я┌п╬я─п╬п╪ п╠я▀ п╦я│п©п╬п╩я▄п╥п╬п╡п╟п╩п╦я│я▄ п╬п╠я┼п╣п╨я┌я▀. п²п╟п╧п╢п╦я┌п╣ п╡ п╫п╟я┐я┤п╫п╬-п©п╬п©я┐п╩я▐я─п╫п╬п╧ п╩п╦я┌п╣я─п╟я┌я┐я─п╣, п╫п╟п©я─п╦п╪п╣я─ п╡ п╥п╟п╪п╣я┤п╟я┌п╣п╩я▄п╫п╬п╧ п╨п╫п╦пЁп╣ п°.п⌠п╟я─п╢п╫п╣я─п╟ [3], п╦пЁя─я▀, п╡ п╨п╬я┌п╬я─я▀я┘ п╦я│п©п╬п╩я▄п╥я┐я▌я┌я│я▐ я└п╦я┬п╨п╦, п╦ п©п╬п©я─п╬п╠я┐п╧я┌п╣ я─п╣п╟п╩п╦п╥п╬п╡п╟я┌я▄ п╦я┘.

п▓п╟я─п╦п╟п╫я┌я▀ п©я─п╬п╣п╨я┌п╬п╡

1. п п╬п╫я│я┌я─я┐п╨я┌п╬я─ я│п╩п╬п╡

    п²п╟ я█п╨я─п╟п╫ п╡я▀п╡п╬п╢п╦я┌я│я▐ п©я─я▐п╪п╬я┐пЁп╬п╩я▄п╫п╟я▐ я┌п╟п╠п╩п╦я├п╟ я│ п╠я┐п╨п╡п╟п╪п╦, п╟ я─я▐п╢п╬п╪ Б─■ п©п╬п╩п╣ п╢п╩я▐ п╫п╟п╠п╬я─п╟ я│п╩п╬п╡. п÷я─п╦ п╫п╟п╠п╬я─п╣ п╫п╟ п╨п╩п╟п╡п╦п╟я┌я┐я─п╣ п╠я┐п╨п╡п╟, п╨п╬я┌п╬я─п╟я▐ п╣я│я┌я▄ п╡ я┌п╟п╠п╩п╦я├п╣, п╦я│я┤п╣п╥п╟п╣я┌ п╦п╥ я┌п╟п╠п╩п╦я├я▀ п╦ п©п╬я▐п╡п╩я▐п╣я┌я│я▐ п╡ п╫п╟п╠п╦я─п╟п╣п╪п╬п╪ я│п╩п╬п╡п╣. п≈п╟п╢п╟я┤п╟ Б─■ я│п╬п╠я─п╟я┌я▄ п╫п╣я│п╨п╬п╩я▄п╨п╬ я│п╩п╬п╡ (я└я─п╟п╥я┐), п╦я│п©п╬п╩я▄п╥я┐я▐ п╡я│п╣ п╠я┐п╨п╡я▀ я┌п╟п╠п╩п╦я├я▀.

2. п▓я─п╟я┴п╟я▌я┴п╦п╣я│я▐ п╨п╡п╟п╢я─п╟я┌п╦п╨п╦

    п²п╟ я█п╨я─п╟п╫п╣ п©п╬я▐п╡п╩я▐п╣я┌я│я▐ п╨п╡п╟п╢я─п╟я┌п╫п╟я▐ п╦п╩п╦ п©я─я▐п╪п╬я┐пЁп╬п╩я▄п╫п╟я▐ я┌п╟п╠п╩п╦я├п╟, п╥п╟п©п╬п╩п╫п╣п╫п╫п╟я▐ я┤п╦я│п╩п╟п╪п╦. п⌡я▌п╠п╬п╧ п╨п╡п╟п╢я─п╟я┌п╦п╨ п╦п╥ 4 я│п╬я│п╣п╢п╫п╦я┘ п╨п╩п╣я┌п╬п╨ я┌п╟п╠п╩п╦я├я▀ п╪п╬п╤п╫п╬ п╫п╣п╬п╢п╫п╬п╨я─п╟я┌п╫п╬ п©п╬п╡п╬я─п╟я┤п╦п╡п╟я┌я▄ п╫п╟ 90б╟ п╡ п╩я▌п╠я┐я▌ я│я┌п╬я─п╬п╫я┐. п≈п╟п╢п╟я┤п╟ Б─■ я─п╟я│п©п╬п╩п╬п╤п╦я┌я▄ я┤п╦я│п╩п╟ п╡ я┌п╟п╠п╩п╦я├п╣ п╡ п©п╬я─я▐п╢п╨п╣ п╡п╬п╥я─п╟я│я┌п╟п╫п╦я▐.
    п▓я▀п╢п╣п╩я▐я┌я▄ п╨п╡п╟п╢я─п╟я┌п╦п╨п╦ п╪п╬п╤п╫п╬ п╢п╡п╦пЁп╟я▌я┴п╣п╧я│я▐ я─п╟п╪п╨п╬п╧ Б─■ пЁя─п╟я└п╦я┤п╣я│п╨п╦п╪ п╨я┐я─я│п╬я─п╬п╪ (я█я┌п╬я┌ п╬п╠я┼п╣п╨я┌ п╩п╣пЁп╨п╬ п╡я│я┌я─п╟п╦п╡п╟п╣я┌я│я▐ п╡ я─п╟п╥я─п╟п╠п╬я┌п╟п╫п╫я┐я▌ п╦п╣я─п╟я─я┘п╦я▌), п╟ п©п╬п╡п╬я─п╬я┌ п╡я▀п©п╬п╩п╫я▐я┌я▄ п©я─п╦ п╫п╟п╤п╟я┌п╦п╦ п╨п╟п╨п╦я┘-п╩п╦п╠п╬ я│п╬я│п╣п╢п╫п╦я┘ п╨п╩п╟п╡п╦я┬.
    п°п╬п╤п╫п╬ я│п╬п╥п╢п╟я┌я▄ п╦ п╡п╟я─п╦п╟п╫я┌ я│ п╠я┐п╨п╡п╟п╪п╦ (п╦п╩п╦ я┤п╟я│я┌я▐п╪п╦ я│п╩п╬п╡) п╡п╪п╣я│я┌п╬ я├п╦я└я─, я┌п╬пЁп╢п╟ п╡ я─п╣п╥я┐п╩я▄я┌п╟я┌п╣ п╢п╬п╩п╤п╫п╟ п©п╬п╩я┐я┤п╦я┌я▄я│я▐ п╥п╟п╢п╟п╫п╫п╟я▐ я└я─п╟п╥п╟ (п╫п╟п©я─п╦п╪п╣я─, "п▒п╚п╒п╛ п≤п⌡п≤ п²п∙ п▒п╚п╒п╛"). п■п╩я▐ п╩я┐я┤я┬п╣п╧ я┤п╦я┌п╟п╣п╪п╬я│я┌п╦ я┌п╣п╨я┐я┴п╣п╣ я│п╬п╢п╣я─п╤п╟п╫п╦п╣ я┌п╟п╠п╩п╦я├я▀ п╪п╬п╤п╫п╬ п╬я┌п╬п╠я─п╟п╤п╟я┌я▄ п╡ я│я┌я─п╬п╨п╣ п╫п╟ я█п╨я─п╟п╫п╣.

3. п▓п╬я│п╣п╪я▄ п©п╬п╩п╬я│п╬п╨

    п²п╟ я█п╨я─п╟п╫п╣ п©п╬я▐п╡п╩я▐п╣я┌я│я▐ п╨п╡п╟п╢я─п╟я┌п╫п╟я▐ я┌п╟п╠п╩п╦я├п╟ я─п╟п╥п╪п╣я─п╬п╪ 4я┘4 п╨п╩п╣я┌п╨п╦, п╥п╟п©п╬п╩п╫п╣п╫п╫п╟я▐ я┤п╦я│п╩п╟п╪п╦. п⌡я▌п╠п╬п╧ я│я┌п╬п╩п╠п╦п╨ п╦п╩п╦ я│я┌я─п╬п╨я┐ п╦п╥ 4 п╨п╩п╣я┌п╬п╨ я┌п╟п╠п╩п╦я├я▀ п╪п╬п╤п╫п╬ я│п╢п╡п╦пЁп╟я┌я▄ п╫п╟ п╬п╢п╫я┐ п╨п╩п╣я┌п╨я┐ п╡п╡п╣я─я┘ п╦п╩п╦ п╡п╫п╦п╥ (я│я┌я─п╬п╨я┐ Б─■ п╡п╩п╣п╡п╬ п╦п╩п╦ п╡п©я─п╟п╡п╬). п÷я─п╦ я█я┌п╬п╪ я┤п╦я│п╩п╟ п╠я┐п╢я┐я┌ я├п╦п╨п╩п╦я┤п╣я│п╨п╦ п©п╣я─п╣п╢п╡п╦пЁп╟я┌я▄я│я▐ п╦п╥ п╬п╢п╫п╬п╧ п╨п╩п╣я┌п╨п╦ я┌п╟п╠п╩п╦я├я▀ п╡ п╢я─я┐пЁя┐я▌. п≈п╟п╢п╟я┤п╟ Б─■ я─п╟я│п©п╬п╩п╬п╤п╦я┌я▄ я┤п╦я│п╩п╟ п╡ я┌п╟п╠п╩п╦я├п╣ п╡ п©п╬я─я▐п╢п╨п╣ п╡п╬п╥я─п╟я│я┌п╟п╫п╦я▐.
    п■п╩я▐ п╡я▀п╠п╬я─п╟ я│я┌я─п╬п╨п╦ (я│я┌п╬п╩п╠я├п╟) п╪п╬п╤п╫п╬ я─п╟п╥я─п╟п╠п╬я┌п╟я┌я▄ п╢п╡п╟ п╡п╦п╢п╟ я┐п╨п╟п╥п╟я┌п╣п╩п╣п╧. п■п╡п╦п╤п╣п╫п╦п╣ я┐п╨п╟п╥п╟я┌п╣п╩п╣п╧ п╫п╟я│п╩п╣п╢я┐п╣я┌я│я▐ п╦п╥ я─п╟п╥я─п╟п╠п╬я┌п╟п╫п╫п╬п╧ п╦п╣я─п╟я─я┘п╦п╦, п©п╣я─п╣п╨п╩я▌я┤п╣п╫п╦п╣ п╪п╣п╤п╢я┐ п╫п╦п╪п╦ Б─■ п╨п╩п╟п╡п╦я┬п╣п╧, п╢п╡п╦п╤п╣п╫п╦п╣ п©п╬п╩п╬я│п╬п╨ Б─■ я│я┌я─п╣п╩п╨п╟.
    п▓ п╦п╢п╣п╟п╩п╣ я│п╩п╣п╢п╬п╡п╟п╩п╬ п╠я▀ я│п╬п╥п╢п╟я┌я▄ я┐п╨п╟п╥п╟я┌п╣п╩п╦, я─п╣п╟пЁп╦я─я┐я▌я┴п╦п╣ п╫п╟ п╫п╟п╤п╟я┌п╦п╣ п╨п╫п╬п©п╬п╨ п╪я▀я┬п╦. п╒п╬пЁп╢п╟ п©п╬ п©п╣я─п╦п╪п╣я┌я─я┐ я┌п╟п╠п╩п╦я├я▀ п╪п╬п╤п╫п╬ я─п╟я│п©п╬п╩п╬п╤п╦я┌я▄ 16 п╨п╫п╬п©п╬п╨ я│п╬ я│я┌я─п╣п╩п╨п╟п╪п╦, я┐п╨п╟п╥я▀п╡п╟я▌я┴п╦п╪п╦ п╡п╬п╥п╪п╬п╤п╫я▀п╣ п╫п╟п©я─п╟п╡п╩п╣п╫п╦я▐ п╢п╡п╦п╤п╣п╫п╦я▐ п╨п╟п╤п╢п╬п╧ п©п╬п╩п╬я│п╨п╦, п╦ п╫п╟п╤п╦п╪п╟я┌я▄ п╫п╟ п╫п╦я┘ п╨я┐я─я│п╬я─п╬п╪ п╪я▀я┬п╦.

4. п÷п╣я─п╣п╡п╣я─я┌я▀я┬п╦

    п²п╟ я█п╨я─п╟п╫п╣ п©п╬я▐п╡п╩я▐п╣я┌я│я▐ п╨п╡п╟п╢я─п╟я┌п╫п╟я▐ я┌п╟п╠п╩п╦я├п╟ я─п╟п╥п╪п╣я─п╬п╪ 4я┘4 п╨п╩п╣я┌п╨п╦. п▓ п╨п╟п╤п╢п╬п╧ п╨п╩п╣я┌п╨п╣ п╫п╟я┘п╬п╢п╦я┌я│я▐ п╨я─я┐п╤п╬п╨. п·п╢п╫п╟ я│я┌п╬я─п╬п╫п╟ п╨я─я┐п╤п╨п╟ Б─■ я│п╦п╫я▐я▐, п╢я─я┐пЁп╟я▐ Б─■ п╠п╣п╩п╟я▐. п²п╟я┤п╟п╩я▄п╫п╬п╣ я─п╟я│п©я─п╣п╢п╣п╩п╣п╫п╦п╣ я├п╡п╣я┌п╬п╡ п╪п╬п╤п╫п╬ я│я┤п╦я┌п╟я┌я▄ я│п╩я┐я┤п╟п╧п╫я▀п╪. п≈п╟ п╬п╢п╦п╫ "я┘п╬п╢" п╪п╬п╤п╫п╬ п©п╣я─п╣п╡п╣я─п╫я┐я┌я▄ п╨я─я┐п╤п╨п╦ п╡ п╨п╟п╨п╬п╧-п╩п╦п╠п╬ п©я─п╬п╦п╥п╡п╬п╩я▄п╫п╬ п╡я▀п╠я─п╟п╫п╫п╬п╧ п╨п╩п╣я┌п╨п╣ п╦ п╡п╬ п╡я│п╣я┘ я│п╬я│п╣п╢п╫п╦я┘ я│ п╫п╣п╧ п©п╬ п╡п╣я─я┌п╦п╨п╟п╩п╦ п╦ пЁп╬я─п╦п╥п╬п╫я┌п╟п╩п╦ п╨п╩п╣я┌п╨п╟я┘ (п╡ п╥п╟п╡п╦я│п╦п╪п╬я│я┌п╦ п╬я┌ я─п╟я│п©п╬п╩п╬п╤п╣п╫п╦я▐ п╡я▀п╠я─п╟п╫п╫п╬п╧ п╨п╩п╣я┌п╨п╦ п╫п╟п╢п╬ п╠я┐п╢п╣я┌ п©п╣я─п╣п╡п╬я─п╟я┤п╦п╡п╟я┌я▄ п╬я┌ 3 п╢п╬ 5 п╨п╩п╣я┌п╬п╨). п≈п╟п╢п╟я┤п╟ пЁп╬п╩п╬п╡п╬п╩п╬п╪п╨п╦ Б─■ п©п╬п╩я┐я┤п╦я┌я▄ п╡п╬ п╡я│п╣я┘ п╨п╩п╣я┌п╨п╟я┘ п╬п╢п╦п╫ п╦ я┌п╬я┌ п╤п╣ я├п╡п╣я┌ п╨я─я┐п╤п╨п╬п╡.

    пёп╨п╟п╥п╟п╫п╦п╣. п■п╩я▐ п╬п╠п╬п╥п╫п╟я┤п╣п╫п╦я▐ п╡я▀п╠я─п╟п╫п╫п╬п╧ п╨п╩п╣я┌п╨п╦ я┐п╢п╬п╠п╫п╬ п╦я│п©п╬п╩я▄п╥п╬п╡п╟я┌я▄ я─п╟п╪п╨я┐, п╨п╬я┌п╬я─я┐я▌ п╪п╬п╤п╫п╬ п©п╣я─п╣п╪п╣я┴п╟я┌я▄ п╨п╩п╟п╡п╦я┬п╟п╪п╦-я│я┌я─п╣п╩п╨п╟п╪п╦. п■п╩я▐ я─п╟п╠п╬я┌я▀ я│ п╢п╡я┐я┘я├п╡п╣я┌п╫я▀п╪п╦ п╨я─я┐п╤п╨п╟п╪п╦ я─п╟п╥я─п╟п╠п╬я┌п╟п╧я┌п╣ п╫п╬п╡я▀п╧ я┌п╦п© Б─■ TFillCircle, п╢п╩я▐ п╦п╥п╪п╣п╫п╣п╫п╦я▐ я├п╡п╣я┌п╟ п╢п╬п╠п╟п╡я▄я┌п╣ п╡ я█я┌п╬я┌ я┌п╦п© п©я─п╬я├п╣п╢я┐я─я┐ Reverse.

5. п╔п╬п╩п╬п╢п╦п╩я▄п╫п╦п╨ п╠я─п╟я┌я▄п╣п╡ п÷п╦п╩п╬я┌п╬п╡

    п²п╟ я█п╨я─п╟п╫п╣ п©п╬я▐п╡п╩я▐п╣я┌я│я▐ п╨п╡п╟п╢я─п╟я┌п╫п╟я▐ я┌п╟п╠п╩п╦я├п╟ я─п╟п╥п╪п╣я─п╬п╪ 4я┘4 п╨п╩п╣я┌п╨п╦, п╡ п╨п╟п╤п╢п╬п╧ п╨п╩п╣я┌п╨п╣ п╫п╟я┘п╬п╢п╦я┌я│я▐ п©п╣я─п╣п╨п╩я▌я┤п╟я┌п╣п╩я▄. п п╟п╤п╢я▀п╧ п╦п╥ п©п╣я─п╣п╨п╩я▌я┤п╟я┌п╣п╩п╣п╧ п╪п╬п╤п╣я┌ п╫п╟я┘п╬п╢п╦я┌я▄я│я▐ я┌п╬п╩я▄п╨п╬ п╡ п╢п╡я┐я┘ п©п╬п╩п╬п╤п╣п╫п╦я▐я┘ Б─■ пЁп╬я─п╦п╥п╬п╫я┌п╟п╩я▄п╫п╬п╪ п╦п╩п╦ п╡п╣я─я┌п╦п╨п╟п╩я▄п╫п╬п╪. п÷я─п╦ п©п╬п╡п╬я─п╬я┌п╣ п╬п╢п╫п╬пЁп╬ п©п╣я─п╣п╨п╩я▌я┤п╟я┌п╣п╩я▐ п╪п╣п╫я▐я▌я┌ я│п╡п╬п╣ я│п╬я│я┌п╬я▐п╫п╦п╣ п╡я│п╣ п©п╣я─п╣п╨п╩я▌я┤п╟я┌п╣п╩п╦, я─п╟я│п©п╬п╩п╬п╤п╣п╫п╫я▀п╣ п╡п╬ п╡я│п╣я┘ п╨п╩п╣я┌п╨п╟я┘ я┌п╬п╧ п╤п╣ я│я┌я─п╬п╨п╦ п╦ я┌п╬пЁп╬ п╤п╣ я│я┌п╬п╩п╠я├п╟. п°п╬п╤п╫п╬ п╩п╦ п╢п╬п╠п╦я┌я▄я│я▐ я┌п╬пЁп╬, я┤я┌п╬ п╡п╬ п╡я│п╣я┘ п╨п╩п╣я┌п╨п╟я┘ я┌п╟п╠п╩п╦я├я▀ п©п╣я─п╣п╨п╩я▌я┤п╟я┌п╣п╩п╦ п╠я┐п╢я┐я┌ п╫п╟я┘п╬п╢п╦я┌я▄я│я▐ п╡ п╬п╢п╫п╬п╪ п╦ я┌п╬п╪ п╤п╣ п©п╬п╩п╬п╤п╣п╫п╦п╦?

    п≈п╟п╪п╣я┤п╟п╫п╦п╣. п■п╡п╟ п©п╬п╩п╬п╤п╣п╫п╦я▐ п©п╣я─п╣п╨п╩я▌я┤п╟я┌п╣п╩п╣п╧ п╪п╬п╤п╫п╬ п╪п╬п╢п╣п╩п╦я─п╬п╡п╟я┌я▄ п╨п╡п╟п╢я─п╟я┌п╫я▀п╪п╦ я└п╦я┬п╨п╟п╪п╦ я│ я├п╦я└я─п╟п╪п╦ 0 п╦ 1 п╦п╩п╦ п╤п╣ п╢п╡я┐я┘я├п╡п╣я┌п╫я▀п╪п╦ п╨я─я┐п╤п╨п╟п╪п╦, п╨п╟п╨ п╡ п©я─п╣п╢я▀п╢я┐я┴п╣п╪ п©я─п╬п╣п╨я┌п╣.

6. п║п©п╦я─п╬пЁя─п╟я└
    п║п©п╦я─п╬пЁя─п╟я└п╬п╪ п╫п╟п╥я▀п╡п╟п╣я┌я│я▐ п╫п╣я┘п╦я┌я─я▀п╧ п©я─п╦п╠п╬я─, я│ п©п╬п╪п╬я┴я▄я▌ п╨п╬я┌п╬я─п╬пЁп╬ п╪п╬п╤п╫п╬ я│я┌я─п╬п╦я┌я▄ я─п╟п╥п╩п╦я┤п╫я▀п╣ п╨я─п╦п╡я▀п╣. п╜я┌п╦ п╨я─п╦п╡я▀п╣ п╬я│я┌п╟п╡п╩я▐п╣я┌ я│п╩п╣п╢ п╨п╟я─п╟п╫п╢п╟я┬п╟, п╡я│я┌п╟п╡п╩п╣п╫п╫п╬пЁп╬ п╡ п╬п╢п╫п╬ п╦п╥ п╬я┌п╡п╣я─я│я┌п╦п╧ п╫п╟ п╨я─я┐пЁп╣, п╨п╬я┌п╬я─я▀п╧ п╨п╟я┌п╦я┌я│я▐ п©п╬ п╫п╣п©п╬п╢п╡п╦п╤п╫п╬п╧ п╬п╨я─я┐п╤п╫п╬я│я┌п╦.
    п∙пЁп╬ п╪п╬п╢п╣п╩я▄ п╪п╬п╤п╫п╬ я│п╢п╣п╩п╟я┌я▄, п╢п╬п╠п╟п╡п╦п╡ п╡ п╦п╣я─п╟я─я┘п╦я▌ п╫п╬п╡я▀п╧ я┌п╦п© Б─■ я┌п╬я┤п╨я┐, п╬я│я┌п╟п╡п╩я▐я▌я┴я┐я▌ п©я─п╦ п╢п╡п╦п╤п╣п╫п╦п╦ п╥п╟ я│п╬п╠п╬п╧ я│п╩п╣п╢. п·п╢п╫п╟п╨п╬ я█я┌п╬я┌ п©я─п╬п╣п╨я┌ я┌я─п╣п╠я┐п╣я┌ я┘п╬я─п╬я┬п╣п╧ п╪п╟я┌п╣п╪п╟я┌п╦я┤п╣я│п╨п╬п╧ п©п╬п╢пЁп╬я┌п╬п╡п╨п╦.

7. п°п╬п╢п╣п╩п╦ п╪п╫п╬пЁп╬пЁя─п╟п╫п╫п╦п╨п╬п╡
    п°п╬п╢п╣п╩я▄ п╪п╫п╬пЁп╬пЁя─п╟п╫п╫п╦п╨п╟ п©я─п╣п╢я│я┌п╟п╡п╩я▐п╣я┌ я│п╬п╠п╬п╧ п╫п╟п╠п╬я─ п╡п╣я─я┬п╦п╫, п╫п╣п╨п╬я┌п╬я─я▀п╣ п╦п╥ п╨п╬я┌п╬я─я▀я┘ я│п╬п╣п╢п╦п╫п╣п╫я▀ п╢я─я┐пЁ я│ п╢я─я┐пЁп╬п╪ п╩п╦п╫п╦я▐п╪п╦. п°п╫п╬пЁп╬пЁя─п╟п╫п╫п╦п╨ Б─■ я█я┌п╬ п©я─п╦п╪п╣я─ п╬п╠я┼п╣п╨я┌п╟- "п╨п╬п╫я┌п╣п╧п╫п╣я─п╟", п╨п╬я┌п╬я─я▀п╧ я│п╬п╢п╣я─п╤п╦я┌ п╡ я│п╣п╠п╣ п╬п╠я┼п╣п╨я┌я▀ п╦п╣я─п╟я─я┘п╦п╦, п╫п╬ я│п╟п╪ п╫п╣ п╡я┘п╬п╢п╦я┌ п╡ п╫п╣п╣. п║п╩п╣п╢п╬п╡п╟я┌п╣п╩я▄п╫п╬, п╢п╩я▐ п╫п╣пЁп╬ п╫я┐п╤п╫п╬ п╠я┐п╢п╣я┌ п╫п╟п©п╦я│п╟я┌я▄ п╡я│п╣ п╫п╣п╬п╠я┘п╬п╢п╦п╪я▀п╣ п╪п╣я┌п╬п╢я▀ (п╢п╡п╦п╤п╣п╫п╦п╣ п╡ я─п╟п╥п╫я▀я┘ п╫п╟п©я─п╟п╡п╩п╣п╫п╦я▐я┘, п©п╬п╡п╬я─п╬я┌я▀ п╡п╬п╨я─я┐пЁ п╡п╣я─я┌п╦п╨п╟п╩я▄п╫п╬п╧ п╦ пЁп╬я─п╦п╥п╬п╫я┌п╟п╩я▄п╫п╬п╧ п╬я│п╣п╧ п╦ я┌.п╢.).
    п≤ я█я┌п╬я┌ п©я─п╬п╣п╨я┌ я┌я─п╣п╠я┐п╣я┌ п╬я┤п╣п╫я▄ я┘п╬я─п╬я┬п╦я┘ п╪п╟я┌п╣п╪п╟я┌п╦я┤п╣я│п╨п╦я┘ п╥п╫п╟п╫п╦п╧: п╫п╣п╬п╠я┘п╬п╢п╦п╪п╬ п╡я▀я┤п╦я│п╩я▐я┌я▄ п╨п╬п╬я─п╢п╦п╫п╟я┌я▀ п╡п╣я─я┬п╦п╫ п╪п╫п╬пЁп╬пЁя─п╟п╫п╫п╦п╨п╟ п╡ п©я─п╬я│я┌я─п╟п╫я│я┌п╡п╣ (я█я┌п╬ п╩п╣пЁп╨п╬ я┌п╬п╩я▄п╨п╬ п╢п╩я▐ п╨я┐п╠п╟), "п©п╣я─п╣п╡п╬п╢п╦я┌я▄" п╦я┘ п╫п╟ п©п╩п╬я│п╨п╬я│я┌я▄, п╥п╫п╟я┌я▄ я└п╬я─п╪я┐п╩я▀ п©п╬п╡п╬я─п╬я┌п╟ п╦ я┌.п╢.
    п═я▐п╢ п©я─п╬п╣п╨я┌п╬п╡ я─п╟п╥п╫п╬п╧ я│п╩п╬п╤п╫п╬я│я┌п╦ ("п╒п╟п╠п╩п╦я├п╟ я┤п╦я│п╣п╩", "п╒п╣я│я┌ п╫п╟ я┌я─п╣п╫п╦я─п╬п╡п╨я┐ п©п╟п╪я▐я┌п╦", "п≤я│п©п╬п╩п╫п╦я┌п╣п╩я▄ п°я┐я─п╟п╡п╣п╧", "п■п╬п╨п╣я─", "п п╩п╟п╡п╦п╟я┌я┐я─п╫я▀п╧ я┌я─п╣п╫п╟п╤п╣я─" п╦ я┌. п╢.) п╪п╬п╤п╫п╬ п╫п╟п╧я┌п╦ п╡ я│я┌п╟я┌я▄п╣ п╟п╡я┌п╬я─п╟ [4].

п═п╣п╨п╬п╪п╣п╫п╢я┐п╣п╪п╟я▐ п╩п╦я┌п╣я─п╟я┌я┐я─п╟

    1. п╓п╟я─п╬п╫п╬п╡ п▓.п▓. п·я│п╫п╬п╡я▀ п╒я┐я─п╠п╬ п÷п╟я│п╨п╟п╩я▐. п°.: п°п▓п╒пё-п╓п∙п║п╒п· п■п≤п■п░п п╒п≤п , 1992, 304 я│.
    2. п°п╦п╥я─п╬я┘п╦ п║.п▓. Turbo Pascal п╦ п╬п╠я┼п╣п╨я┌п╫п╬-п╬я─п╦п╣п╫я┌п╦я─п╬п╡п╟п╫п╫п╬п╣ п©я─п╬пЁя─п╟п╪п╪п╦я─п╬п╡п╟п╫п╦п╣. п°.: п╓п╦п╫п╟п╫я│я▀ п╦ я│я┌п╟я┌п╦я│я┌п╦п╨п╟, 1992, 190 я│.
    3. п⌠п╟я─п╢п╫п╣я─ п°. п°п╟я┌п╣п╪п╟я┌п╦я┤п╣я│п╨п╦п╣ пЁп╬п╩п╬п╡п╬п╩п╬п╪п╨п╦ п╦ я─п╟п╥п╡п╩п╣я┤п╣п╫п╦я▐. п°.: п°п╦я─, 1971, 511 я│.
    4. п⌠я┐п©пЁп╪п╟п╫ п⌠.п². п°п╬п╧ п╩я▌п╠п╦п╪я▀п╧ QuickBasic. п▓я▀п©я┐я│п╨ 5. "п≤п╫я└п╬я─п╪п╟я┌п╦п╨п╟", Б└√ 42/2000.