Технология создания программно-методического комплекса "Чукотский букварь"

16. Симонович И.П., Евсеева Г.А. Windows: лаборатория мастерства. -М.: АСТ- Пресс, 2006.

17. Нил Дж. Рубенкинг. Язык программирования Delphi для «чайников». Введениев Borland Delphi 2006 = Delphi for Dummies. - М.: Диалектика, 2007. - 336 с.

18. Информатизация образования: направления, средства, технологии: пособие для системы повышения квалификации / под общ.ред. С.И. Маслова. - М.: Изд-во МЭИ, 2004 - 868 с.

19. Особенности объектно-ориентированного программирования на C++/CLI, C# и Java Автор: Медведев В. И. Издательство: РИЦ «Школа»: 2010

20. Программирование на Java Автор: Вязовик Н.А. Издательство: ИНТУИТ.РУ, 2003.

21. Симонович С., Евсеев Г., Алексеев А. Общая информатика, специальная информатика. М.: АСТпресс, 2008.

22. Хавьер Пашеку. Программирование в Borland Delphi 2006 для профессионалов = Delphi for .NET Developer's Guide. - М.: Вильямс, 2006. - 944 с.

23. C++: базовый курс Автор: Герберт Шилдт Издательство: Вильямс, 2008.

24. ГОСТ 7.83-2001. МЕЖГОСУДАРСТВЕННЫЙ СТАНДАРТ. Система стандартов по информации, библиотечному и издательскому делу. ЭЛЕКТРОННЫЕ ИЗДАНИЯ. Основные виды и выходные сведения.

25. Гук М. Аппаратные интерфейсы ПК. Энциклопедия. - СПб: Питер, 2003.

26. Симонович С В и др. Информатика: Базовый курс. -СПб.: Питер-2002.

27. Культин Н. Основы программирования в Delphi XE. - СПБ.: БХВ-Петербург, 2011. - 416 с.

28. Скотт Келби Adobe Photoshop CS6: справочник по цифровой фотографии = The Adobe Photoshop CS6 Book for Digital Photographers.- М.: «Вильямс», 2013. - 464 с.

29. www.abbyy.ru/finereader-corporate/

30. Язык программирования C++. Лекции и упражнения, 6-е издание Автор: Стивен Прата Издательство: Вильямс, 2012

31. www.school.nd.ru/catalog/products/bookvarialearntoreadpmk/

32. www.school.nd.ru /catalog/products/dreamersmagicconstructorpmk/

33. www.school.nd.ru/products/show.php?product_id=254

34. Заморщикова Л.П. дипломная работа 2005 г. по теме «Саха тыла» для учащихся с 5 по 9 классы национальных общеобразовательных школ.

35. Симонович С., Евсеев Г., Алексеев А. Специальная информатика. Универсальный курс. Симонович С., Евсеев Г., Алексеев А. Общая информатика, специальная информатика. М.: АСТпресс, 2010.

36. Титоренко Г.А. Информационные технологии управления. М., Юнити: 2006.

37. Захарова И.Г. Информационные технологии в образовании: учеб. Пособие для студ. высш. учеб.заведений - 3-е изд., стер. - М.: Издательский центр «Академия»,2007.-192 с.

38. Гродобаева И.Н.. Практические задания noMicrosoftWord,: Пособие для учащихся общеобразовательных школ, гимназий, лицеев. - МН.: Анерсэв, 2009.

39. Демкин В.П., Руденко Т.В., Серкова Н.В. Психолого-педагогические особенности ДО // Высшее образование в России. - 2011. № 3. 124-128с.

40. П. Дейтел, Х. Дейтел, Э. Дейтел, М. Моргано Android для программистов. Создаем приложения, Изд.: Питер. - 2013.

41. С. Хашими, С. Коматинени, Д. Маклин Разработка приложений для Android. Изд.: Питер. - 2011.



Приложение 1. Содержание программы

Система состоит из 57 форм:

3 1 страница АБВГДЕ:

1.1. А

1.1.1. Аа

1.2. Б

1.2.1. Бб

3.4 В

1.3.1. Вв

3.5 Г

1.4.1. Гг

3.6 Д

1.5.1. Дд

3.7 Е

1.6.1. Ее

4 2 страница ЁЖЗИЙК

2.1. Ё

2.1.1. Ёё

1.2. Ж

2.2.1. Жж

4.4 З

2.3.1. Зз

4.5 И

2.4.1. Ии

4.6 Й

2.5.1. Йй

4.7 К

2.6.1. Кк

5 3 страница К,Л,М,НН,О

3.1. К,

3.1.1. К,к,

3.2. Л,

3.2.1. Л,л,

5.4 М,

3.3.1. М,м,

5.5 Н

3.4.1. Нн

5.6 Н,

3.5.1. Н,н,

5.7 О

3.6.1. Оо

6 4 страница ПРСТУФ

4.1. П

4.1.1. Пп

4.2. Р

4.2.1. Рр

6.4 С

4.3.1. Сс

6.5 Т

4.4.1. Тт

6.6 У

4.5.1. Уу

6.7 Ф

4.6.1. Фф

7 5 страница ХЦЧШЩЬ

5.1. Х

5.1.1. Хх

4.2. Ц

5.2.1. Цц

7.4 Ч

5.3.1. Чч

7.5 Ш

5.4.1. Шш

7.6 Щ

5.5.1. Щщ

7.7 Ь

5.6.1. Ьь

8 6 страница ЫЪЭЮЯ и кнопка с рисунком кита (см. Рис. 10)

5.1. Ы

5.1.1. Ыы

4.2. Ъ

5.2.1. Ъъ

8.4 Э

5.3.1. Ээ

8.5 Ю

5.4.1. Юю

8.6 Я

5.5.1. Яя

8.7 Рассказы, т.е. кнопка с рисунком кита (см. Рис. 10)

5.6.1. Кал,евэттак-выргын

5.6.2. Инъэ

5.6.3. Выквык,ай

5.6.4. Рэк,овран

5.6.5. К,эпыл

5.6.6. Кэйн,ын

5.6.7. Мэмыл

5.6.8. Ынантан,ычьын

5.6.9. Ы,ттьыёлкен космонавт

5.6.10. Телефон

5.6.11. Чакэттыт

5.6.12. Налгынойн,ын

5.6.13. Ныгытэкин пипик,ылгын

5.6.14. Вээмк,эй

5.6.15. К,эюукэй



Приложение 2. Листинг программы

Главная

unit MainMenu;

interface

uses

System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,

FMX.Layouts;

type

TfrmMainMenu = class(TForm)

imgArrowRight: TImage;

imgArrowLeft: TImage;

layPage1: TGridPanelLayout;

imgLetterA: TImage;

imgLetterB: TImage;

imgLetterV: TImage;

layPage2: TGridPanelLayout;

imgLetterYo: TImage;

imgLetterZh: TImage;

imgLetterZ: TImage;

layPage3: TGridPanelLayout;

imgLetterKh: TImage;

imgLetterLn: TImage;

imgLetterM: TImage;

layPage4: TGridPanelLayout;

imgLetterP: TImage;

imgLetterR: TImage;

imgLetterS: TImage;

layPage5: TGridPanelLayout;

imgLetterH: TImage;

imgLetterTs: TImage;

imgLetterCh: TImage;

layPage6: TGridPanelLayout;

imgLetterY: TImage;

imgLetterIi: TImage;

imgLetterYe: TImage;

imgLetterG: TImage;

imgLetterD: TImage;

imgLetterE: TImage;

imgLetterI: TImage;

imgLetterJ: TImage;

imgLetterK: TImage;

imgLetterN: TImage;

imgLetterNg: TImage;

imgLetterO: TImage;

imgLetterT: TImage;

imgLetterU: TImage;

imgLetterF: TImage;

imgLetterSh: TImage;

imgLetterSch: TImage;

imgLetterYy: TImage;

imgLetterYu: TImage;

imgLetterYa: TImage;

imgReadEx: TImage;

procedure FormCreate(Sender: TObject);

procedure imgArrowRightClick(Sender: TObject);

procedure imgArrowLeftClick(Sender: TObject);

procedure imgLetterAClick(Sender: TObject);

procedure imgLetterBClick(Sender: TObject);

procedure imgLetterVClick(Sender: TObject);

procedure imgLetterGClick(Sender: TObject);

procedure imgLetterDClick(Sender: TObject);

procedure imgLetterEClick(Sender: TObject);

procedure imgLetterIClick(Sender: TObject);

procedure imgLetterJClick(Sender: TObject);

procedure imgLetterKClick(Sender: TObject);

procedure imgLetterYoClick(Sender: TObject);

procedure imgLetterZClick(Sender: TObject);

procedure imgLetterZhClick(Sender: TObject);

procedure imgLetterKhClick(Sender: TObject);

procedure imgLetterLnClick(Sender: TObject);

procedure imgLetterMClick(Sender: TObject);

procedure imgLetterNClick(Sender: TObject);

procedure imgLetterNgClick(Sender: TObject);

procedure imgLetterOClick(Sender: TObject);

procedure imgLetterFClick(Sender: TObject);

procedure imgLetterPClick(Sender: TObject);

procedure imgLetterRClick(Sender: TObject);

procedure imgLetterSClick(Sender: TObject);

procedure imgLetterTClick(Sender: TObject);

procedure imgLetterUClick(Sender: TObject);

procedure imgLetterChClick(Sender: TObject);

procedure imgLetterHClick(Sender: TObject);

procedure imgLetterSchClick(Sender: TObject);

procedure imgLetterShClick(Sender: TObject);

procedure imgLetterTsClick(Sender: TObject);

procedure imgLetterYyClick(Sender: TObject);

procedure imgLetterIiClick(Sender: TObject);

procedure imgLetterYClick(Sender: TObject);

procedure imgLetterYaClick(Sender: TObject);

procedure imgLetterYeClick(Sender: TObject);

procedure imgLetterYuClick(Sender: TObject);

procedure imgReadExClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmMainMenu: TfrmMainMenu;

implementation

{$R *.fmx}

uses LettterA, LetterB, LettterD, LettterV, LettterE, LettterG, LetterYo,

LetterZh, LettterCh, LettterF, LettterH, LettterI, LettterIi, LettterJ,

LettterK, LettterKh, LettterL, LettterM, LettterN, LettterNg, LettterO,

LettterP, LettterR, LettterS, LettterSch, LettterSh, LettterT, LettterTs,

LettterU, LettterY, LettterYa, LettterYe, LettterYu, LettterYy, LettterZ,

ReadEx;

procedure TfrmMainMenu.FormCreate(Sender: TObject);

begin

layPage1.Visible:=True;

imgArrowLeft.Enabled:=False;

imgArrowLeft.Opacity:=0.4;

end;

procedure TfrmMainMenu.imgArrowLeftClick(Sender: TObject);

begin

if layPage6.Visible=True then begin

layPage6.Visible:=False;

imgArrowRight.Enabled:=True;

imgArrowRight.Opacity:=1;

layPage5.Visible:=True; exit; end;

if layPage5.Visible=True then begin

layPage5.Visible:=False;

layPage4.Visible:=True; exit; end;

if layPage4.Visible=True then begin

layPage4.Visible:=False;

layPage3.Visible:=True; exit; end;

if layPage3.Visible=True then begin

layPage3.Visible:=False;

layPage2.Visible:=True; exit; end;

if layPage2.Visible=True then begin

layPage2.Visible:=False;

imgArrowLeft.Enabled:=False;

imgArrowLeft.Opacity:=0.4;

layPage1.Visible:=True; exit; end;

end;

procedure TfrmMainMenu.imgArrowRightClick(Sender: TObject);

begin

if layPage1.Visible=True then begin

layPage1.Visible:=False;

imgArrowLeft.Enabled:=True;

imgArrowLeft.Opacity:=1;

layPage2.Visible:=True; exit; end;

if layPage2.Visible=True then begin

layPage2.Visible:=False;

layPage3.Visible:=True; exit; end;

if layPage3.Visible=True then begin

layPage3.Visible:=False;

layPage4.Visible:=True; exit; end;

if layPage4.Visible=True then begin

layPage4.Visible:=False;

layPage5.Visible:=True; exit; end;

if layPage5.Visible=True then begin

layPage5.Visible:=False;

imgArrowRight.Enabled:=False;

imgArrowRight.Opacity:=0.4;

layPage6.Visible:=True; exit; end;

end;

procedure TfrmMainMenu.imgLetterAClick(Sender: TObject);

begin

frmLetterA:=TfrmLetterA.Create(Self);

frmLetterA.Show;

end;

procedure TfrmMainMenu.imgLetterBClick(Sender: TObject);

begin

frmLetterB:=TfrmLetterB.Create(Self);

frmLetterB.Show;

end;

procedure TfrmMainMenu.imgLetterChClick(Sender: TObject);

begin

frmLetterCh:=TfrmLetterCh.Create(Self);

frmLetterCh.Show;

end;

procedure TfrmMainMenu.imgLetterDClick(Sender: TObject);

begin

frmLetterD:=TfrmLetterD.Create(Self);

frmLetterD.Show;

end;

procedure TfrmMainMenu.imgLetterEClick(Sender: TObject);

begin

frmLetterE:=TfrmLetterE.Create(Self);

frmLetterE.Show;

end;

procedure TfrmMainMenu.imgLetterFClick(Sender: TObject);

begin

frmLetterF:=TfrmLetterF.Create(Self);

frmLetterF.Show;

end;

procedure TfrmMainMenu.imgLetterGClick(Sender: TObject);

begin

frmLetterG:=TfrmLetterG.Create(Self);

frmLetterG.Show;

end;

procedure TfrmMainMenu.imgLetterHClick(Sender: TObject);

begin

frmLetterH:=TfrmLetterH.Create(Self);

frmLetterH.Show;

end;

procedure TfrmMainMenu.imgLetterIClick(Sender: TObject);

begin

frmLetterI:=TfrmLetterI.Create(Self);

frmLetterI.Show;

end;

procedure TfrmMainMenu.imgLetterIiClick(Sender: TObject);

begin

frmLetterIi:=TfrmLetterIi.Create(Self);

frmLetterIi.Show;

end;

procedure TfrmMainMenu.imgLetterJClick(Sender: TObject);

begin

frmLetterJ:=TfrmLetterJ.Create(Self);

frmLetterJ.Show;

end;

procedure TfrmMainMenu.imgLetterKClick(Sender: TObject);

begin

frmLetterK:=TfrmLetterK.Create(Self);

frmLetterK.Show;

end;

procedure TfrmMainMenu.imgLetterKhClick(Sender: TObject);

begin

frmLetterKh:=TfrmLetterKh.Create(Self);

frmLetterKh.Show;

end;

procedure TfrmMainMenu.imgLetterLnClick(Sender: TObject);

begin

frmLetterLn:=TfrmLetterLn.Create(Self);

frmLetterLn.Show;

end;

procedure TfrmMainMenu.imgLetterMClick(Sender: TObject);

begin

frmLetterM:=TfrmLetterM.Create(Self);

frmLetterM.Show;

end;

procedure TfrmMainMenu.imgLetterNClick(Sender: TObject);

begin

frmLetterN:=TfrmLetterN.Create(Self);

frmLetterN.Show;

end;

procedure TfrmMainMenu.imgLetterNgClick(Sender: TObject);

begin

frmLetterNg:=TfrmLetterNg.Create(Self);

frmLetterNg.Show;

end;

procedure TfrmMainMenu.imgLetterOClick(Sender: TObject);

begin

frmLetterO:=TfrmLetterO.Create(Self);

frmLetterO.Show;

end;

procedure TfrmMainMenu.imgLetterPClick(Sender: TObject);

begin

frmLetterP:=TfrmLetterP.Create(Self);

frmLetterP.Show;

end;

procedure TfrmMainMenu.imgLetterRClick(Sender: TObject);

begin

frmLetterR:=TfrmLetterR.Create(Self);

frmLetterR.Show;

end;

procedure TfrmMainMenu.imgLetterSchClick(Sender: TObject);

begin

frmLetterSch:=TfrmLetterSch.Create(Self);

frmLetterSch.Show;

end;

procedure TfrmMainMenu.imgLetterSClick(Sender: TObject);

begin

frmLetterS:=TfrmLetterS.Create(Self);

frmLetterS.Show;

end;

procedure TfrmMainMenu.imgLetterShClick(Sender: TObject);

begin

frmLetterSh:=TfrmLetterSh.Create(Self);

frmLetterSh.Show;

end;

procedure TfrmMainMenu.imgLetterTClick(Sender: TObject);

begin

frmLetterT:=TfrmLetterT.Create(Self);

frmLetterT.Show;

end;

procedure TfrmMainMenu.imgLetterTsClick(Sender: TObject);

begin

frmLetterTs:=TfrmLetterTs.Create(Self);

frmLetterTs.Show;

end;

procedure TfrmMainMenu.imgLetterUClick(Sender: TObject);

begin

frmLetterU:=TfrmLetterU.Create(Self);

frmLetterU.Show;

end;

procedure TfrmMainMenu.imgLetterVClick(Sender: TObject);

begin

frmLetterV:=TfrmLetterV.Create(Self);

frmLetterV.Show;

end;

procedure TfrmMainMenu.imgLetterYaClick(Sender: TObject);

begin

frmLetterYa:=TfrmLetterYa.Create(Self);

frmLetterYa.Show;

end;

procedure TfrmMainMenu.imgLetterYClick(Sender: TObject);

begin

frmLetterY:=TfrmLetterY.Create(Self);

frmLetterY.Show;

end;

procedure TfrmMainMenu.imgLetterYeClick(Sender: TObject);

begin

frmLetterYe:=TfrmLetterYe.Create(Self);

frmLetterYe.Show;

end;

procedure TfrmMainMenu.imgLetterYoClick(Sender: TObject);

begin

frmLetterYo:=TfrmLetterYo.Create(Self);

frmLetterYo.Show;

end;

procedure TfrmMainMenu.imgLetterYuClick(Sender: TObject);

begin

frmLetterYu:=TfrmLetterYu.Create(Self);

frmLetterYu.Show;

end;

procedure TfrmMainMenu.imgLetterYyClick(Sender: TObject);

begin

frmLetterYy:=TfrmLetterYy.Create(Self);

frmLetterYy.Show;

end;

procedure TfrmMainMenu.imgLetterZClick(Sender: TObject);

begin

frmLetterZ:=TfrmLetterZ.Create(Self);

frmLetterZ.Show;

end;

procedure TfrmMainMenu.imgLetterZhClick(Sender: TObject);

begin

frmLetterZh:=TfrmLetterZh.Create(Self);

frmLetterZh.Show;

end;

procedure TfrmMainMenu.imgReadExClick(Sender: TObject);

begin

frmReadEx:=TfrmReadEx.Create(Self);

frmReadEx.Show;

end;

end.

Передвижение по страницам

unit ReadEx;

interface

uses

System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts,

FMX.Memo, FMX.Objects;

type

TfrmReadEx = class(TForm)

imgArrowLeft: TImage;

imgArrowRight: TImage;

layMain: TLayout;

imgReadExMain: TImage;

layPage1: TGridPanelLayout;

imgPage1: TImage;

memPage1: TMemo;

layPage2: TGridPanelLayout;

imgPage2: TImage;

memPage2: TMemo;

layPage3: TGridPanelLayout;

imgPage3: TImage;

memPage3: TMemo;

layPage4: TGridPanelLayout;

imgPage4: TImage;

memPage4: TMemo;

layPage5: TGridPanelLayout;

imgPage5: TImage;

memPage5: TMemo;

layPage6: TGridPanelLayout;

imgPage6: TImage;

memPage6: TMemo;

layPage7: TGridPanelLayout;

imgPage7: TImage;

memPage7: TMemo;

layPage8: TGridPanelLayout;

imgPage8: TImage;

memPage8: TMemo;

layPage9: TGridPanelLayout;

imgPage9: TImage;

memPage9: TMemo;

layPage10: TGridPanelLayout;

imgPage10: TImage;

memPage10: TMemo;

layPage11: TGridPanelLayout;

imgPage11: TImage;

memPage11: TMemo;

layPage12: TGridPanelLayout;

imgPage12: TImage;

memPage12: TMemo;

layPage13: TGridPanelLayout;

imgPage13: TImage;

memPage13: TMemo;

layPage14: TGridPanelLayout;

imgPage14: TImage;

memPage14: TMemo;

procedure FormCreate(Sender: TObject);

procedure imgArrowRightClick(Sender: TObject);

procedure imgArrowLeftClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmReadEx: TfrmReadEx;

implementation

{$R *.fmx}

procedure TfrmReadEx.FormCreate(Sender: TObject);

begin

layMain.Visible:=True;

imgArrowLeft.Enabled:=False;

imgArrowLeft.Opacity:=0.4;

end;

procedure TfrmReadEx.imgArrowLeftClick(Sender: TObject);

begin

if layPage14.Visible=True then begin

layPage14.Visible:=False;

imgArrowRight.Enabled:=True;

imgArrowRight.Opacity:=1;

layPage13.Visible:=True; exit; end;

if layPage13.Visible=True then begin

layPage13.Visible:=False;

layPage12.Visible:=True; exit; end;

if layPage12.Visible=True then begin

layPage12.Visible:=False;

layPage11.Visible:=True; exit; end;

if layPage11.Visible=True then begin

layPage11.Visible:=False;

layPage10.Visible:=True; exit; end;

if layPage10.Visible=True then begin

layPage10.Visible:=False;

layPage9.Visible:=True; exit; end;

if layPage9.Visible=True then begin

layPage9.Visible:=False;

layPage8.Visible:=True; exit; end;

if layPage8.Visible=True then begin

layPage8.Visible:=False;

layPage7.Visible:=True; exit; end;

if layPage7.Visible=True then begin

layPage7.Visible:=False;

layPage6.Visible:=True; exit; end;

if layPage6.Visible=True then begin

layPage6.Visible:=False;

layPage5.Visible:=True; exit; end;

if layPage5.Visible=True then begin

layPage5.Visible:=False;

layPage4.Visible:=True; exit; end;

if layPage4.Visible=True then begin

layPage4.Visible:=False;

layPage3.Visible:=True; exit; end;

if layPage3.Visible=True then begin

layPage3.Visible:=False;

layPage2.Visible:=True; exit; end;

if layPage2.Visible=True then begin

layPage2.Visible:=False;

layPage1.Visible:=True; exit; end;

if layPage2.Visible=True then begin

layPage2.Visible:=False;

imgArrowLeft.Enabled:=False;

imgArrowLeft.Opacity:=0.4;

layPage1.Visible:=True; exit; end;

end;

procedure TfrmReadEx.imgArrowRightClick(Sender: TObject);

begin

if layMain.Visible=True then begin

layMain.Visible:=False;

imgArrowLeft.Enabled:=True;

imgArrowLeft.Opacity:=1;

layPage1.Visible:=True; exit; end;

if layPage1.Visible=True then begin

layPage1.Visible:=False;

layPage2.Visible:=True; exit; end;

if layPage2.Visible=True then begin

layPage2.Visible:=False;

layPage3.Visible:=True; exit; end;

if layPage3.Visible=True then begin

layPage3.Visible:=False;

layPage4.Visible:=True; exit; end;

if layPage4.Visible=True then begin

layPage4.Visible:=False;

layPage5.Visible:=True; exit; end;

if layPage5.Visible=True then begin

layPage5.Visible:=False;

layPage6.Visible:=True; exit; end;

if layPage6.Visible=True then begin

layPage6.Visible:=False;

layPage7.Visible:=True; exit; end;

if layPage7.Visible=True then begin

layPage7.Visible:=False;

layPage8.Visible:=True; exit; end;

if layPage8.Visible=True then begin

layPage8.Visible:=False;

layPage9.Visible:=True; exit; end;

if layPage9.Visible=True then begin

layPage9.Visible:=False;

layPage10.Visible:=True; exit; end;

if layPage10.Visible=True then begin

layPage10.Visible:=False;

layPage11.Visible:=True; exit; end;

if layPage11.Visible=True then begin

layPage11.Visible:=False;

layPage12.Visible:=True; exit; end;

if layPage12.Visible=True then begin

layPage12.Visible:=False;

layPage13.Visible:=True; exit; end;

if layPage13.Visible=True then begin

layPage13.Visible:=False;

imgArrowRight.Enabled:=False;

imgArrowRight.Opacity:=0.4;

layPage14.Visible:=True; exit; end;

end;

end.

Размещено на Allbest.ru

...