From 258f24570a113a29fb7d01305c88d5d480f77d56 Mon Sep 17 00:00:00 2001
From: h3lp <oleg20111511@list.ru>
Date: Thu, 20 Nov 2025 21:18:32 +0200
Subject: [PATCH] Add Pascal learning files

---
 PascalABCnet/case..of/case1.pas               |  17 +++++
 PascalABCnet/case..of/case2.pas               |  20 ++++++
 PascalABCnet/case..of/case3.pas               |  11 +++
 PascalABCnet/case..of/case4.pas               |  12 ++++
 PascalABCnet/char/char1.pas                   |  12 ++++
 ...ик цифр для 2х знаков).pas |  13 ++++
 .../Div и Mod(Счётчик цифр).pas   |  16 +++++
 PascalABCnet/div mod/Div и Mod.pas           |   9 +++
 PascalABCnet/div mod/k div mod d.pas          |   8 +++
 .../вещественные числа.pas   |  12 ++++
 ...е цифр 3значных чисел.pas |  14 ++++
 ...�ифры 2значного числа.pas |  12 ++++
 .../div mod/цифры числа 2.pas       |  15 ++++
 .../div mod/цифры числа.pas         |  18 +++++
 .../procedure&function/процедуры.pas |  18 +++++
 .../процедуры2.pas                   |  23 +++++++
 .../procedure&function/функции.pas     |  21 ++++++
 PascalABCnet/while/While_task1.pas            |  11 +++
 PascalABCnet/while/While_task3.pas            |  13 ++++
 PascalABCnet/while/While_task7.pas            |  15 ++++
 PascalABCnet/while/While_task8.pas            |  10 +++
 PascalABCnet/while/while2.pas                 |  13 ++++
 PascalABCnet/записи/записи.pas    |  38 ++++++++++
 PascalABCnet/массивы/бред.pas      |  13 ++++
 PascalABCnet/массивы/массив.pas  |   8 +++
 ...�ние char и массива с char.pas |  25 +++++++
 .../множества/множества.pas |  13 ++++
 .../остальное/randomiser.pas         |  25 +++++++
 .../Для вадима2.pas                  |  65 ++++++++++++++++++
 .../остальное/Счетчик.exe     | Bin 0 -> 37888 bytes
 .../остальное/Счетчик.pas     |  31 +++++++++
 .../параметр цикла for/for1.pas  |   6 ++
 .../параметр цикла for/for2.pas  |  11 +++
 .../параметр цикла for/for3.pas  |   6 ++
 .../параметр цикла for/for4.pas  |  11 +++
 .../параметр цикла for/for5.pas  |  11 +++
 ...УРАВНЕНИЯ С ПАСКАЛЕМ.pas |  11 +++
 37 files changed, 587 insertions(+)
 create mode 100644 PascalABCnet/case..of/case1.pas
 create mode 100644 PascalABCnet/case..of/case2.pas
 create mode 100644 PascalABCnet/case..of/case3.pas
 create mode 100644 PascalABCnet/case..of/case4.pas
 create mode 100644 PascalABCnet/char/char1.pas
 create mode 100644 PascalABCnet/div mod/Div и Mod(Счётчик цифр для 2х знаков).pas
 create mode 100644 PascalABCnet/div mod/Div и Mod(Счётчик цифр).pas
 create mode 100644 PascalABCnet/div mod/Div и Mod.pas
 create mode 100644 PascalABCnet/div mod/k div mod d.pas
 create mode 100644 PascalABCnet/div mod/вещественные числа.pas
 create mode 100644 PascalABCnet/div mod/сложение цифр 3значных чисел.pas
 create mode 100644 PascalABCnet/div mod/цифры 2значного числа.pas
 create mode 100644 PascalABCnet/div mod/цифры числа 2.pas
 create mode 100644 PascalABCnet/div mod/цифры числа.pas
 create mode 100644 PascalABCnet/procedure&function/процедуры.pas
 create mode 100644 PascalABCnet/procedure&function/процедуры2.pas
 create mode 100644 PascalABCnet/procedure&function/функции.pas
 create mode 100644 PascalABCnet/while/While_task1.pas
 create mode 100644 PascalABCnet/while/While_task3.pas
 create mode 100644 PascalABCnet/while/While_task7.pas
 create mode 100644 PascalABCnet/while/While_task8.pas
 create mode 100644 PascalABCnet/while/while2.pas
 create mode 100644 PascalABCnet/записи/записи.pas
 create mode 100644 PascalABCnet/массивы/бред.pas
 create mode 100644 PascalABCnet/массивы/массив.pas
 create mode 100644 PascalABCnet/массивы/сравнение char и массива с char.pas
 create mode 100644 PascalABCnet/множества/множества.pas
 create mode 100644 PascalABCnet/остальное/randomiser.pas
 create mode 100644 PascalABCnet/остальное/Для вадима2.pas
 create mode 100644 PascalABCnet/остальное/Счетчик.exe
 create mode 100644 PascalABCnet/остальное/Счетчик.pas
 create mode 100644 PascalABCnet/параметр цикла for/for1.pas
 create mode 100644 PascalABCnet/параметр цикла for/for2.pas
 create mode 100644 PascalABCnet/параметр цикла for/for3.pas
 create mode 100644 PascalABCnet/параметр цикла for/for4.pas
 create mode 100644 PascalABCnet/параметр цикла for/for5.pas
 create mode 100644 PascalABCnet/урок 1(ознакомление)/РЕШАЕМ УРАВНЕНИЯ С ПАСКАЛЕМ.pas

diff --git a/PascalABCnet/case..of/case1.pas b/PascalABCnet/case..of/case1.pas
new file mode 100644
index 0000000..528ac3e
--- /dev/null
+++ b/PascalABCnet/case..of/case1.pas
@@ -0,0 +1,17 @@
+Program case_of;
+ Var a:integer;
+  begin
+   WriteLn('������� ����� ����');
+   ReadLn(a);
+   case a of
+   1: WriteLn('���� ��');
+   2: WriteLn('���� ��');
+   3: WriteLn('���� ��');
+   4: WriteLn('���� ��');
+   5: WriteLn('���� ����');
+   6: WriteLn('���� ��');
+   7: WriteLn('���� ��');
+   else WriteLn('��� ����� ����!!!')
+   end;
+   end.
+   
\ No newline at end of file
diff --git a/PascalABCnet/case..of/case2.pas b/PascalABCnet/case..of/case2.pas
new file mode 100644
index 0000000..0a947af
--- /dev/null
+++ b/PascalABCnet/case..of/case2.pas
@@ -0,0 +1,20 @@
+program case2;
+ var a:integer;
+  begin
+   WriteLn('������� ����� ������');
+   ReadLn(a);
+   case a of
+   1: WriteLn('������');
+   2: WriteLn('�������');
+   3: WriteLn('����');
+   4: WriteLn('������');
+   5: WriteLn('May');
+   6: WriteLn('����');
+   7: WriteLn('������');
+   9:WriteLn('��������');
+   10:WriteLn('�������');
+   11:WriteLn('������');
+   12:WriteLn('�������');
+   else WriteLn('��� ������ ������!!!')
+   END;
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/case..of/case3.pas b/PascalABCnet/case..of/case3.pas
new file mode 100644
index 0000000..1a9ca41
--- /dev/null
+++ b/PascalABCnet/case..of/case3.pas
@@ -0,0 +1,11 @@
+program case_;
+ var a:integer;
+  begin
+   WriteLn('������� ���-�� �������� �� 1 �� 50');
+   ReadLn(a);
+   Case a of
+   1,21,31,41:WriteLn(a,'    ������');
+   2..4,22..24,32..34,42..44:WriteLn(a,'     ������a');
+   5..20,25..30,35..40,45..50:WriteLn(a,'     ��������');
+   end;
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/case..of/case4.pas b/PascalABCnet/case..of/case4.pas
new file mode 100644
index 0000000..01883a2
--- /dev/null
+++ b/PascalABCnet/case..of/case4.pas
@@ -0,0 +1,12 @@
+program case_adult;
+ var a:integer;
+  begin
+   WriteLn('������� �������');
+   ReadLn(a);
+   Case a of
+   1,21,31,41,51,61,71,81,91,101,121,131,141,151,161,171,181,191:writeln('���   ',a,'   ���');
+   2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94,102..104,122..124,132..134,142..144,152..154,162..164,172..174,182..184,192..194:writeln('���   ',a,'   ����');
+   5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..100,105..120,125..130,135..140,145..150,155..160,165..170,175..180,185..190,195..200:writeln('���   ',a,'   ���');
+   else WriteLn('�������� �������!!!');
+   end;
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/char/char1.pas b/PascalABCnet/char/char1.pas
new file mode 100644
index 0000000..80c3647
--- /dev/null
+++ b/PascalABCnet/char/char1.pas
@@ -0,0 +1,12 @@
+program cha;
+ 
+ var c,x,y,z:char; //char - типо integer только кроме цифр есть буквы и точки
+  begin
+   z:= ('z'); // присвоил z значение "z"
+   WriteLn('введи x');
+   ReadLn(x); //читаем x
+   WriteLn(x+z); // складываем символы
+   WriteLn('4 буквы без пробелa.');
+   ReadLn(c,x,y,z);
+   WriteLn(c+x+y+z); // таким образом можно составить слово.
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/div mod/Div и Mod(Счётчик цифр для 2х знаков).pas b/PascalABCnet/div mod/Div и Mod(Счётчик цифр для 2х знаков).pas
new file mode 100644
index 0000000..097dd52
--- /dev/null
+++ b/PascalABCnet/div mod/Div и Mod(Счётчик цифр для 2х знаков).pas	
@@ -0,0 +1,13 @@
+program div_mod;
+ var a,one,dec,hun,rec:integer;
+  begin
+   WriteLn ('������� �����');
+   ReadLn (a);
+   one:=a mod 10;
+   WriteLn ('����� ������ ����� - ',one);
+   dec:=(a div 10) mod 10;
+   rec:= dec*10+one;
+   WriteLn ('� ��� ���� ����� - ',rec);
+   Write ('Enter');
+   ReadLn;
+  End.
\ No newline at end of file
diff --git a/PascalABCnet/div mod/Div и Mod(Счётчик цифр).pas b/PascalABCnet/div mod/Div и Mod(Счётчик цифр).pas
new file mode 100644
index 0000000..0b821d9
--- /dev/null
+++ b/PascalABCnet/div mod/Div и Mod(Счётчик цифр).pas	
@@ -0,0 +1,16 @@
+program div_mod;
+ var a,one,dec,hun,rec:integer;
+  begin
+   WriteLn ('������� �����');
+   ReadLn (a);
+   one:=a mod 10;
+   WriteLn ('����� ������ ����� - ',one);
+   dec:=(a div 10) mod 10;
+   WriteLn ('����� �������� ����� - ', dec);
+   hun:= a div 100;
+   WriteLn ('����� ����� ����� - ', hun);
+   rec:= hun*100+dec*10+one;
+   WriteLn ('� ��� ���� ����� - ',rec);
+   Write ('Enter');
+   ReadLn;
+  End.
\ No newline at end of file
diff --git a/PascalABCnet/div mod/Div и Mod.pas b/PascalABCnet/div mod/Div и Mod.pas
new file mode 100644
index 0000000..ffd4bc8
--- /dev/null
+++ b/PascalABCnet/div mod/Div и Mod.pas	
@@ -0,0 +1,9 @@
+Program oper;
+Var a,b,c,d,e,f: integer;
+ Begin
+  Read (a,b,c,d);
+  E:=a div b;
+  f:= c mod d;
+  WriteLn (e);
+  WriteLn (f);
+ End.
\ No newline at end of file
diff --git a/PascalABCnet/div mod/k div mod d.pas b/PascalABCnet/div mod/k div mod d.pas
new file mode 100644
index 0000000..8917a68
--- /dev/null
+++ b/PascalABCnet/div mod/k div mod d.pas	
@@ -0,0 +1,8 @@
+Program trololo;
+var k,d,r,s:integer;
+ Begin
+  ReadLn(k,d);
+  r:=k div d;
+  s:=k mod d;
+  WriteLn('���� ��������� ',k,' �� ',d,'��������� ',r,'(������� ',s,')');
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/div mod/вещественные числа.pas b/PascalABCnet/div mod/вещественные числа.pas
new file mode 100644
index 0000000..4652778
--- /dev/null
+++ b/PascalABCnet/div mod/вещественные числа.pas	
@@ -0,0 +1,12 @@
+program a7;
+var a:real;
+b:integer;
+ begin
+  ReadLn(a);
+  a:=a*100;
+  b:= Trunc (a);
+  b:=b mod 100;
+  writeln(b);
+  a:=(b div 10) + (b mod 10);
+  writeln(a);
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/div mod/сложение цифр 3значных чисел.pas b/PascalABCnet/div mod/сложение цифр 3значных чисел.pas
new file mode 100644
index 0000000..1124d84
--- /dev/null
+++ b/PascalABCnet/div mod/сложение цифр 3значных чисел.pas	
@@ -0,0 +1,14 @@
+var a,dec,hun,one,k:integer;
+ begin
+  writeLn('������� �����');
+  writeln;
+  readln(a);
+  one:=a mod 10;
+  a:=a div 10;
+  dec:=a mod 10;
+  a:=a div 10;
+  hun:=a mod 10;
+  a:=a div 10;
+  K:=hun+dec+one;
+  write(k);
+ end.
\ No newline at end of file
diff --git a/PascalABCnet/div mod/цифры 2значного числа.pas b/PascalABCnet/div mod/цифры 2значного числа.pas
new file mode 100644
index 0000000..e8f6a69
--- /dev/null
+++ b/PascalABCnet/div mod/цифры 2значного числа.pas	
@@ -0,0 +1,12 @@
+var a,dec,hun,one:integer;
+ begin
+  writeLn('������� �����');
+  writeln;
+  readln(a);
+  one:=a mod 10;
+  a:=a div 10;
+  dec:=a mod 10;
+  a:=a div 10;
+  writeln(dec);
+  writeln(one);
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/div mod/цифры числа 2.pas b/PascalABCnet/div mod/цифры числа 2.pas
new file mode 100644
index 0000000..04eedf6
--- /dev/null
+++ b/PascalABCnet/div mod/цифры числа 2.pas	
@@ -0,0 +1,15 @@
+var a,dec,hun,one:integer;
+ begin
+  writeLn('������� �����');
+  writeln;
+  readln(a);
+  one:=a mod 10;
+  a:=a div 10;
+  dec:=a mod 10;
+  a:=a div 10;
+  hun:=a mod 10;
+  a:=a div 10;
+  writeln(hun);
+  writeln(dec);
+  writeln(one);
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/div mod/цифры числа.pas b/PascalABCnet/div mod/цифры числа.pas
new file mode 100644
index 0000000..83d6a56
--- /dev/null
+++ b/PascalABCnet/div mod/цифры числа.pas	
@@ -0,0 +1,18 @@
+var
+  n: integer;
+  a: array[byte] of byte;
+  i, j: byte;
+ 
+begin
+  i := 1;
+  readln(n);
+  while n > 0 do
+  begin
+    a[i] := n mod 10;
+    inc(i);
+    n := n div 10;
+  end;
+  j := i - 1;
+  for i := j downto 1 do
+    writeln(a[i]);
+end.
\ No newline at end of file
diff --git a/PascalABCnet/procedure&function/процедуры.pas b/PascalABCnet/procedure&function/процедуры.pas
new file mode 100644
index 0000000..f82032c
--- /dev/null
+++ b/PascalABCnet/procedure&function/процедуры.pas
@@ -0,0 +1,18 @@
+program procedura;
+
+ var c:char;
+
+//---------------------------------------------------
+ procedure zv; //��������� ��������� � � ��������
+  var i:integer; // ��������� ���������� ������ ���� ����������, ��� �������� �� �� ����������
+   begin
+    WriteLn('*******************************'); // ����������, ��� ��, ��� ������ ���� ���������
+   end;
+//---------------------------------------------------
+
+ begin
+  c:='0';
+  WriteLn('������ ���������? Y/N');
+  ReadLn(c);
+  If c = 'Y' then zv; // ������, ����� ���� ����� ����� ���������,������ ���� zv;
+ end.
\ No newline at end of file
diff --git a/PascalABCnet/procedure&function/процедуры2.pas b/PascalABCnet/procedure&function/процедуры2.pas
new file mode 100644
index 0000000..8bd505f
--- /dev/null
+++ b/PascalABCnet/procedure&function/процедуры2.pas
@@ -0,0 +1,23 @@
+program procedura;
+
+ var r,r1,s2:integer;  
+
+//---------------------------------------------------
+ procedure zv(a,b:integer; var s:integer); //��������, ���� ����� ��������� �������� � ������ �� �����������, ������� ��������� ��� ���������
+   begin       // ��� ����� ������ ���������, � ����������� ���������� ����� � �������, ����� �������� ���������
+  //���� �� ������, ����� � ����������� ���� ��������� ���������� ���������� ����������, �������� � ��� � ������ s, �� ����� ��������� �������.
+    s:=a+b;   //<-- ���������� ���� ��������, ������� ����� ��������� � ����������� �����������,
+              // �� ���������� ���, ������ ������ ���������� - �����������, ������� �� ������ � �������
+    WriteLn(a,' ',b);
+   end;       
+
+//------------------------------------------------ 
+
+ begin
+  r:=random(5000000);
+  r1:=random(5000000); // ���, ����������, ���������� ����������, � �������� ����� ��������� ��������
+  WriteLn(r,' ',r1);
+  zv(r,r1,s2);
+  WriteLn('����� ��������� ����� = ',s2);
+ end.
+ 
\ No newline at end of file
diff --git a/PascalABCnet/procedure&function/функции.pas b/PascalABCnet/procedure&function/функции.pas
new file mode 100644
index 0000000..e76fd7f
--- /dev/null
+++ b/PascalABCnet/procedure&function/функции.pas
@@ -0,0 +1,21 @@
+program procedura;
+
+ var s2,r1,r:integer;  
+
+//---------------------------------------------------
+ function zv(a,b:integer):integer; // функции - это типо те же процедуры, только с конкретным результатом.
+ //функция - это и есть результат. отсюда и :integer после скобок
+   begin
+    zv :=a+b; // у этой функции результатом является сложение переменных a и b
+    WriteLn('Помимо этого в функции выполняются любые действия, не связанные с вычислением результата, поэтому эта надпись выведется на экран');
+   end;       
+//------------------------------------------------ 
+
+ begin
+  r:=random(5000000);
+  r1:=random(5000000);
+  WriteLn(r,' ',r1);
+  s2:=zv(r,r1); // переменной s2 присваивается результат функции, и так собственно функция и призывается
+  WriteLn('Сумма рандомных чисел = ',s2);
+ end.
+ 
\ No newline at end of file
diff --git a/PascalABCnet/while/While_task1.pas b/PascalABCnet/while/While_task1.pas
new file mode 100644
index 0000000..3bb93e4
--- /dev/null
+++ b/PascalABCnet/while/While_task1.pas
@@ -0,0 +1,11 @@
+Program While_task_1;
+ Var a,b:integer;
+  Begin
+   ReadLn(b);
+   a:=1;
+   While ((a<b) or (a=b)) do
+  begin
+   WriteLn(a);
+   inc (a);
+   end;
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/while/While_task3.pas b/PascalABCnet/while/While_task3.pas
new file mode 100644
index 0000000..ac251fa
--- /dev/null
+++ b/PascalABCnet/while/While_task3.pas
@@ -0,0 +1,13 @@
+Program While_Task3;
+ const n=5;
+ var a:integer;
+  begin
+   WriteLn('����� 5');
+   ReadLn(a);
+   While a<>n do
+   begin
+   WriteLn ('�� �����, �������� ���');
+   ReadLn(a);
+   end;
+   WriteLn('�������');
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/while/While_task7.pas b/PascalABCnet/while/While_task7.pas
new file mode 100644
index 0000000..00f84ba
--- /dev/null
+++ b/PascalABCnet/while/While_task7.pas
@@ -0,0 +1,15 @@
+Program While_Task7;
+ const n=10;
+ var a:integer;
+  begin
+   While a<> n do
+   Begin
+   writeln('hello');
+   inc(a);
+   end;
+   a:=0;
+   repeat
+    writeln('hello');
+   inc(a);
+   until a=n;
+   end.
\ No newline at end of file
diff --git a/PascalABCnet/while/While_task8.pas b/PascalABCnet/while/While_task8.pas
new file mode 100644
index 0000000..0e2c726
--- /dev/null
+++ b/PascalABCnet/while/While_task8.pas
@@ -0,0 +1,10 @@
+Program While_Task8;
+ const n=25;
+ var a:integer;
+  begin
+   a:=3;
+   Repeat
+   Writeln(a);
+   inc(a);
+   until a>n;
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/while/while2.pas b/PascalABCnet/while/while2.pas
new file mode 100644
index 0000000..5aff7ea
--- /dev/null
+++ b/PascalABCnet/while/while2.pas
@@ -0,0 +1,13 @@
+Program While4;
+Var a,b,c:integer;
+ begin
+ ReadLn(a,b);
+ Write (a mod b);
+ {
+ while a mod b =0 do 
+ begin 
+ c:=a mod b;
+ end;
+ WriteLn(c);
+ }
+ end.
\ No newline at end of file
diff --git a/PascalABCnet/записи/записи.pas b/PascalABCnet/записи/записи.pas
new file mode 100644
index 0000000..674e747
--- /dev/null
+++ b/PascalABCnet/записи/записи.pas
@@ -0,0 +1,38 @@
+program zap;
+
+ type stud = record // record - ���� ������
+  name : string;
+  year : record // � record`e record ����� ��������� ����� :, ������ =
+      D : 1..31;
+      M : string;
+      Y : integer;
+         end;
+ end;
+ var a :stud; // ���������, ��� ���������� a = ������ stud 
+  
+  begin
+   WriteLn('���');
+   ReadLn(a.name);
+   WriteLn('�����, �����, ���');
+   with a.year do begin // with ������ �������� � ��������
+   ReadLn(D);
+   ReadLn(M);
+   ReadLn(Y);
+   end;
+   Case a.year.M of //����� ���� a ����� �� - �� ������, ������� �� ��� ���������
+    '1a' : a.year.M:='������';
+    '2a'  : a.year.M:='�������';
+    '3a' : a.year.M:='����';
+    '4a' : a.year.M:='������';
+    '5a' : a.year.M:='���';
+    '6a' : a.year.M:='����';
+    '7a' : a.year.M:='����';
+    '8a' : a.year.M:='������';
+    '9a' : a.year.M:='��������';
+    '10' : a.year.M:='�������';
+    '11' : a.year.M:='������';
+    '12' : a.year.M:='�������';
+   end;
+   WriteLn(a.name);
+   WriteLn(a.year.D,' ',a.year.M,' ',a.year.Y);
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/массивы/бред.pas b/PascalABCnet/массивы/бред.pas
new file mode 100644
index 0000000..598d82a
--- /dev/null
+++ b/PascalABCnet/массивы/бред.pas
@@ -0,0 +1,13 @@
+program summof30;
+ const n=30;
+ type My=array [1..30] of integer; //������ �� 30 ����� �����
+ var a: my;
+     s,i:integer;
+   begin
+     WriteLn('����� ',n,' �����'); 
+     for i:=1 to n do ReadLn(a[i]);//�� ���� ��� ������ [i], �� ��� �������� �����
+     s:=0;
+     for i:=1 to n do s:=s+a[i]; //��� ��� �� ���� [i], �� ��� ����� ������������
+     WriteLn(s);
+   end.
+ 
\ No newline at end of file
diff --git a/PascalABCnet/массивы/массив.pas b/PascalABCnet/массивы/массив.pas
new file mode 100644
index 0000000..1a8b573
--- /dev/null
+++ b/PascalABCnet/массивы/массив.pas
@@ -0,0 +1,8 @@
+program idea;
+ var m:array [1..10] of integer; // ����� ������ ��������� �� 10 ���������� (!�� ������ �� ���� 1 - 10!)
+     i:integer;
+  begin
+   WriteLn(m); //������ ��� 10 ����������. ����������, ��� � ��� ����������, ��� ����� ����
+   m[2]:=2;    //������ ���������� � ������� [2] ���������� ����� 2 
+   WriteLn(m); // ����� ������ ���� ������, � ������ ���������� ����� 2
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/массивы/сравнение char и массива с char.pas b/PascalABCnet/массивы/сравнение char и массива с char.pas
new file mode 100644
index 0000000..65db45b
--- /dev/null
+++ b/PascalABCnet/массивы/сравнение char и массива с char.pas	
@@ -0,0 +1,25 @@
+program nunax;
+ var c:char;
+     ch : array[1..4] of char;
+     i,x:integer;
+ label l1;
+  begin
+   ch[1]:='a';
+   ch[2]:='b';
+   ch[3]:='c';
+   ch[4]:='d'; //записываю переменные в массив
+   l1: // метка для того чтобы при вводе неверного варианта что то происходило
+   x:=0; //всегда обнуляй переменные при использовании циклов
+   WriteLn('введи a,b,c или d');
+   ReadLn(c); //считывание варианта 
+   for i:=1 to 4 do
+    begin
+     if (c<>ch[i]) then inc(x); // тут вариант сравнивается с a b c и d которые внесены в массив
+    end; // если inc(x) произошло 4 раза, значит вариант не равен ничему из того что есть в массиве
+   if x<>3 then 
+    begin
+    Writeln('че?');
+    goto l1; // собственно сам переход к l1 если введен неверный вариант
+    end;
+   WriteLn('end');
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/множества/множества.pas b/PascalABCnet/множества/множества.pas
new file mode 100644
index 0000000..3c4d4d3
--- /dev/null
+++ b/PascalABCnet/множества/множества.pas
@@ -0,0 +1,13 @@
+program множества;
+ var A,B,C: set of 0..9;//0..9 значит, что значения могут быть от 0 и до 9 (включительно)
+
+begin
+ A:=[1,2,3];
+ B:=[3,4,5];
+ C:=A+B;// + объединение
+ WriteLn(C);
+ C:=A*B;// * пересечение
+ WriteLn(C);
+ C:=A-B;// - вычитание
+ WriteLn(C);
+end.
\ No newline at end of file
diff --git a/PascalABCnet/остальное/randomiser.pas b/PascalABCnet/остальное/randomiser.pas
new file mode 100644
index 0000000..c51d954
--- /dev/null
+++ b/PascalABCnet/остальное/randomiser.pas
@@ -0,0 +1,25 @@
+program ranodmizer;
+ Uses crt;
+ var y,x,i:integer;
+ const N=5;
+  begin
+   i:=1; //�������
+   y:= random (10); //�����, ������� ����������
+   //writeln (y);
+   WriteLn('������ �����');
+   ReadLn(x); //����������
+   While ((x<>y)and(i<N+1)) do //���� �������
+  begin
+   {
+   if x>y then writeln ('������');
+   if x<y then writeln ('������');
+   }
+   writeLn('�������, �������� ��� ���');
+   ReadLn(x);
+   inc(i); //���� ��� ��� �������,while ������ � begin
+  end;
+   if(x=y)then writeLn ('�������');
+   if not (x=y) then writeln ('�� ��������');
+   readkey;
+  end.
+  
\ No newline at end of file
diff --git a/PascalABCnet/остальное/Для вадима2.pas b/PascalABCnet/остальное/Для вадима2.pas
new file mode 100644
index 0000000..7f0b10c
--- /dev/null
+++ b/PascalABCnet/остальное/Для вадима2.pas	
@@ -0,0 +1,65 @@
+uses crt;
+var w,a,s,d,q,e,r,t:integer;
+n:byte;
+label l1;
+begin
+ l1:
+ WriteLn('������� ���');
+ ReadLn(w);
+ if w <> 536985 then WriteLn('�������');
+ if w <> 536985 then goto l1;
+ WriteLn('�������� ������ ������ (�����) ������');
+ WriteLn('����������� ����� ����� ����������� ��������');
+ WriteLn('�������� ����� ������ A ������� 1');
+ ReadLn(n);
+ Case n of 
+ 1..5,7..26:WriteLn(' �������');
+ 6: WriteLn('�����');
+ end;
+ WriteLn('�������� 2 ������ (�����) ������');
+ ReadLn(w);
+  Case w of 
+ 2..9:WriteLn(' �������');
+ 1: WriteLn('�����');
+ end;
+ WriteLn('�������� ������ ������ (�����) ������');
+ WriteLn('����������� ����� ����� ����������� ��������');
+ ReadLn(a);
+ Case a of 
+ 1..5,7..26:WriteLn(' �������');
+ 6: WriteLn('�����');
+ end;
+  WriteLn('�������� 4 ������ (�����) ������');
+ ReadLn(s);
+  Case s of 
+ 2..9:WriteLn(' �������');
+ 1: WriteLn('�����');
+ end;
+  WriteLn('�������� ����� ������ (�����) ������');
+ WriteLn('����������� ����� ����� ����������� ��������');
+ ReadLn(r);
+ Case r of 
+ 1..5,7..26:WriteLn(' �������');
+ 6: WriteLn('�����');
+ end;
+  WriteLn('�������� 6 ������ (�����) ������');
+ ReadLn(t);
+  Case t of 
+ 1,3..9:WriteLn(' �������');
+ 2: WriteLn('�����');
+ end;
+   WriteLn('�������� ����� ������ (�����) ������');
+ WriteLn('����������� ����� ����� ����������� ��������');
+ ReadLn(e);
+ Case e of 
+ 1..5,7..26:WriteLn(' �������');
+ 6: WriteLn('�����');
+ end;
+  WriteLn('�������� 6 ������ (�����) ������');
+ ReadLn(q);
+  Case q of 
+ 1,3..9:WriteLn(' �������');
+ 2: WriteLn('�����');
+ end;
+ Readkey;
+end.
\ No newline at end of file
diff --git a/PascalABCnet/остальное/Счетчик.exe b/PascalABCnet/остальное/Счетчик.exe
new file mode 100644
index 0000000000000000000000000000000000000000..4df5f42073fb7bd90cc3be94ed7df34f789a15a2
GIT binary patch
literal 37888
zcmeHw33y!9mF9U%y{dXztSZS>UL;H2pbW;?#*mV2!16BeF4@>@vMiPD0!dG<Dj5qS
zBd6KhB#;Ig97r32J3t_iumsa-V$xZh0VmK2GofP`Xy|UHLozT;cLGh!{O8>JYLR4|
zp0B6B{^lDeb?Tnwo_p@O=bpQ~S7PPGw~<9eHa?$zO7twg`QHM8pA81VuB?BqlAa15
zo%pP=;^@TI?dfboZ^qk}Y42|6Xz%Iqat&Kj4Vk{4hICKE;?*q;-Ck#EMn#1?MXO%3
zglL6f(i^9QFY#M@lT4$`C?mQJ6jM>Z@HoC3@HvbRTi1Xu@Yrtt=YP|iKy)387F<tM
zCI2scYm_VD-yG<@NEJthhl$F;dH)+kwIfT6Ol=?v6>&nqmlxqPa;aT8;CFlx0KDS9
z0+W9YM4M-1Qe9q$vO)UJefyH)`)~o#LcjcP{qAMI;vd^)Qh=U9Tk|g@GJxabFz?^;
zuX?6QK~zB9h?xL%Pow|*G}S}6Hc~xPl`$vsWyIG16J<T7k<-vc?q?}(QXF)QT_j40
zGkNGuYXIYKoAv;xwi?F~WDw>o6V@_n`mxUl4RJdhvIX3fc_Hx;8^D)+TJ=neDt#F<
z5kSzGi5M)9`VOrIkH?1goB{FJaibBrff4}&HYQObb2saWgTYhP+znydO^y>*T-q=b
z=!rYP49$k}>X`vr0U;jiKR~xke^c44l)U1aqeW+uLtdJA#dXjhv(O(aQ3g8`5O7<i
zKNeL(Sp1=Qdrk+MfEV41l#lbiu=Y#^%Y&@bB6Z^wMNiTD2qns)w((}}V-~J=UDF#2
zxw2q=#c_juGzy$}u-+A{Es1&*Ypeitf}V>Cr-<u5Tf7e9q!s(sOm7Tyyi%5Y;nPn)
zwHy!DxNDOGEGdSRYk`Vzi6!A7mMku)K8YmT910iN>^G3y&lZG~1>&FKen&vK>rTLf
z;uG>P2Cnk?aGmh%33*s;^f(W%7Xfem32cexc_)Yu1dY3a<HM0$4cid|99mutIIfey
z%<N5!M!6B8L{@xVax%W1%*0Z9Y+aIPPv#7evzTP=)rePH77&>S@y5AeQz7zPhevKM
zhf~aH;61`|W3z-)yb*CkNda6Zc^Km%{j=#*;1c5}nzL3cQNa@fX1hofJZHEGsbgA+
z<1pPz00_?_%#qL5mq1jyl(~v~i;19gO5RZQ#IB(^Z-l%v9c^ma(!4dau1#o$ZH|zi
zv(83cGmE_A4!|kMn4JGi`kXJ9JqH4=WA0|IhkWApAukvr3@XOO9$<hn;?^EuAbBc8
zyP*T|6CumPq;$Or0F7(_(j9BFyn0Y-WU{--)y%LGHXK~V6W^C<fQ;*Kc0im`-0C|M
z&DR{a{Pcjq@MRN-8`qNxk|@Lun?U%?K4Z;5XmU<hG4NUbfh_kHYX^6fV_*us0&_7J
zPUzDZ5?sS^yYW%(mKD6cVG!SKY5798V6^T)aKgp=c#ZSFy-DbgS}stnenDHhegP^V
z!4@jSH~Lj{X-K68RB9MnX-vM7E)A(vg-TUJD~-)p(xuW$6WY=fhE^GuucAw(RmQcY
z#|^DAK3_$bN~?@%OOF{^r8ZwhmrAR|+tR$umUyi$UqzRSss!U3%aRuym$X3RXO_{`
z@Hetfgk+ky+V>t(mFrCbC{H#)BIKb3w~T@kg%x4%6rk2|vvE9_6pmRQ@{3z-I}tl#
z>*lZsk`oRqEX29Po%<9L((6cTR8xM;bo@zaAoxwp-VL4{eT?dv=h2suco6-FJDG-R
zA~o_#9aoc4QT&Obr_b!t>9YY!^aM>z;|>JJZCb*11@LJ_#D0M9Z{vF$Qp<LfdGqil
zK8s*u@_shd>SLYChy)UdyN{=+hxF&hj?3N$9pjm+#CYNi6EiWveM6C7DDEcF2F2Xu
zw^b87FEHyl4`9JSqL|JNF;%jK%y+*9o}mT)XB(1Nqs2~a$c$lq#d_rKn{(2>4i!6b
z6EAX~OL{Sbn?Q~}i93giow$kZ!<xWgx%-giPtwFtu@g5D7}f-a$=!z~<s?lE6+3Yg
z4<H~*9W{%aKop#$iJ@XAZsPo5O(1;TeT^q=VyM`On>dC}l=k8*ZUUQ`lk{S!*om9y
zmnMqV-!>u0>?n_#deZVFNFb2?`HIwq`6@ycQA;Hg!L-l_?QzP$Y~`WXb2pA-1@dPl
zJq#LlI-I9?osA(U0!2PkxHlh3kdilmBD45}S@r@*_*vErdgr2ABjT19L!R+E{~=T3
zNGSV=ihOQOvUyH0Sd`{<y8Zfy=@waq^X>W6_7y+hnuOhozt<aSH)ML}aYuMhU=!y2
zN%kDx`7CW(;uEz2K^?A(nRb%8#d{Dlpfqv224Q2(dp!2FY}h7aP-T&lGu~K=Vt}xT
zi^!%EOPRM2R+MFtVchaqwH=f-sPS@W3CemVIa}x5X`rgzs^TSF-V9>|T(yPek{hqK
zlk6x8DIpKj-aSQ^c^g<EgRC2R34+5Ll0l8wvf*<w2;p97CCN*YG&Qt+X_dE|6s}1?
zzbgS24;M8nWPgSEKWhM+WZznuP!%OzOin{2g*@a3%p$Y#P8JS%n9DB3s{;{P2YFse
z2SPD#9ylX<Fv;sotU7?&tSr8%Iv5F5I}s-mJkArZ5rc(6EBGZ8afWDfMc9@*hlms3
zSnVWVgmvQi4353Mdf4{*uH~tU_~Dq>F|Kh=g81nBml4h$OJK?g>W2Kfr>TE@cd-^U
zoCA2Tyc9Lf#Bzq#Korg52=yMYD+aKIvCY5$V%cW5ai0;hk}#NMU$Ie%*aM@1O0Qso
z%$-SpsD81zq(23Fgl7}`xuGyuGS|afvGQQeJRYFn7s{hXyduo^g{M<6X71)LJP=I$
z9$gT3j_6PJFKjHiXZpX1f5!N!{;r3)(qDsf4k1DNxgm2O`pZ2zd0d<<ZWO<`pCj3Y
zy)?%KwzP<gly8?spwm?5?ZMJ2^9bpl5)+Yq^j#Vsq;ZWTIW9=(5@Du&mON6VQ?>`o
zsLdBXas{XEo%{^JEyM=7JqfSiAj@(Cp!@z1d&PG$M~dc&>MwS^`Ef4ouevu7zPURF
z&6an769xO)BwnkSXIkD4*a<4PX-RHZb<Ex9fNdr2N2LKS%6%l~{!;z}MSN5IsN3W^
zdcBOGmeS{4$*rmBR6Wxr4sEo}V-kQOGtmpanf)p&WuwjPgIvUTp?Hvs7zW%`GK_nF
z4gwT2VtHRHAd2KY1d1+Vf8b^x0r0-A#6-E&^d2pUJ%-{&?;A>l8}%M9FrOGkW+h$`
zIqrS4AQSVx#mJs>AY|?qWnbaWtMVYSc0Ti9Mv!THnY?e*h?&QoK9I6cLXY<pE5jHV
zG#b*U!)N~bDx>Q?4Za^chCFNFaWK8Bph1l}&pkahY`En;BPxf+LqA)g;z7+<?A&;*
zm(G4$x59St8A`Q*Wl`EtxlXlFG@elA$FuM>J~UprUq$wfG7`_CHQ!3sQ4+U<1v?$d
z`BK;R4xtim3FdOp#S~h9#*n)?Om!86il2B6b$AKjfk0gS1yCKNAn@HHmMy{o2!62a
z#7?wqCaz@|^Y*eC`SJQZu<Uo(?7w6kGG{Q-RO~|@sl-PRR9hN!+ihfDVr#1=ig;S2
zo(E3`wbb9&p|aYG6~@3H=aMnNI;<`IgT`QJPBG;fAI2$SX0af-1LNVIVR-=Srk^Lc
zcmlrU3C%Cb6HF_~6HM@Kf#vx;;n1b<55}O7C%(u%+s*b^-gjXdhJcZ{cbE}9>6qf_
zNylZGbV?9&>q}6f=GF^bN9GpK5j|E?dE|J%12u=uDVDdq1EOkZtlq`F!4QD1<`mCg
zZL;@0RN+A`9pk%C+=ld5wO^FS_ZQk2I*vov4znoF@2+DfahkJKDwFZ6gsmm>7z;H_
zgpDWDeKNi}KNRJ!J)dI({z^Ha)CUjceUP_Dq%H6J%FRRl{7AtEcA<}|j;-?l52PmN
zl5u_?way<hN6NNZ0;Io&JhPIR5T56U#E|jAqM^r-Z7q`LHD!c3jAcXQZMqQhvp60S
zKZ2-t1OUh8#E-dNfrLYH;=h1YW;%Q3=pl19jkzSKFf2Tbd1y_Y4@=i_9GCn#%Ee)G
zRPkkwYJSNaWm?G`Wr7Fs;yHRQ`hhJB&(S{v$4q>Up*U>-`*9m*asC?MfKx?GLZmr8
z3139#@^fT}4_{(msQ4>hcQ6#<L-kBa;<b1zW&BFk46F@>c{rqvM@MesFHYD7MqCUY
zvM&8)p^f2o9T>UJcR#Dn(UI#QY59Gz_`E}i3hYN^HvI%u_(GbOhx|3?aQ|V_=@{e%
zQT%5$@){&s;@(fW<z%@}7^etu>(F_JN#)ye^7+p>_8gV}8aRwzMk~YfAHrXcEfTB0
zFJO7gdxgz1cT45J=JK#yh*<LNDcQqF6@LPk<{Efex5xI0FH{qjcVNUe;2ggVn<k=8
zvN-lJi}}pS4I=LOOX6PnZn#Z;k|?zaojZ|DIw*$3-p>m*sW#>o`T1uf`uV?}xD99<
z!MDE{+Q$5%HeMaEjlVf@8)$xnHjWkAusK#n@U1!+4E3*G_?fI0e#rqRi%Cn)rRPaM
ztOUXf$?HvRv%$}0XhETmxmqlzWkK)1>8=i02mUtSSFYDIq@L?o9vnDQ-gu|D&r?uW
z*^_+@;zc$M@8QYU<N!^BJ{8k?U;ZvylP4Wz%$XwRT+S9&Vk(zaoDTI{00{=3Rep-a
zZpCK6$TmaMS|wjk9~wkUgwJ=U?%WE<$4q%F>pvXF+{6k2gIvCF8oOx;%LMSL#%D7=
zoNsu{FT{t}ly&$l#%B{g+weIPpK<sk(*VeBpGTYc;+I|UmBZJ|sAeSKKR0ncfSYUs
zae|xNh_5kjaxK2bxycI@agid<SH!awaR$Di>{LZ;z!&Z@k!00Q9hE_#WC(QATfpS)
zOfbDBlq+H`h56Ex@6|#vT&)EoA$6_B-3dp6`@Kcr@_~b6#1RU5=*r#HMx|UT>FYH-
zF02kF|BA2I?&M}(K0V(*I6HrO=ocPF(NujGUKm8GZ*Y^BaKX%c4L2?x?qytD7zSz*
z%eek%a56vOi#h{?pIr{x)zU*Vfzfr#LkSD?YJR9#2i&^=pe!iXg2X+&7zy0pQ^A1z
zyHZgy<z=ZTS@O0N(wVFsJbpvvLI^FEgT?%KA98AM1Y@zM;7eY|wbYd}LIVcKMKUjQ
zr$U<}oM0cUF}xMv7Ztsgz)9{WC7;@qLJiTY-aXJa*+bMq6`rLRG<xuf^M^Kux|DnZ
zL&jZ^zF^P9^9Oy=TPfav#4S_Q>PsQD4q9^FIeEX;7!9)!32L}Iyj9`@uqgSQn8oK>
ztc8RSh{VgN$hGAmZ#7G+=NIhZ>0HkY4e^D4WTseI(d#Zhg!Uj<%)LnJ6$Z`M9IF_j
z+d84{c*PLi;WFvB+?4U1RV&&+$VTGj#eG0{NFNGOqWUn@TZKN94{0YPF|B-rX~6nR
z<76cL!{X&L^cVZ6$oszKv5G&~_TfG%7awsK5PKy)`uFXF_$Wd>$b`rWMLt@C0Meb}
zq6!C2^?c9K1aTF-h0rLP&wUa#Lr1D&m~X4?u)0^3M<4#Zs%oS>$?HUNDnOXWfb(EH
zVh<H^SqL9W4j^npdPs17!PGCYZOCBnVhMAoiPeGOHe!*}Mh2jLX!}?~DR~M&MBYDA
zRtAPj6|B4(Ru+a<aw(?~l~=69Z!z=H3J<&RczuCC@^^)?TTP<z-dc=^maz%@H&uVn
z3}jyR6)ICafpypQS{Pu4xry~$ssYG+#482X3|E^eF;GFg{2+rOzopB9@l8tt!1;s4
zO4f6%jq+Y;k{5LSK1c=&OK$^TYmeJpU$wc$s_`~J@hO&@<msxeIFl1mREavt9m<}8
zUb^zWUKY|Qg2+2%?sJIt<6HJ9dnTi>+XB!DmlI>WK=qKF^t)lc!+9kv64(d<6&`!0
zur8=A)s?4u*qw}|s~~W3UKb1<kK79u`@<g_k{4d_fC>w>>%NZFkjg_>zm6|-jh_|s
zidj95LKttnn-dV9t}N8&RYji0Wg_sYn;eS@nXxFEWl<wjheF~~XqLyEdh87zcX_4|
z8^juFXVE`*5a#K3^vdW4@DVJ&jR_O`fHD&gU?cXe7+0e@5R=D-_I&nSBoI-Tnh)qF
zf`5x>#e+rcfMOXuOX+<81@AI6QW4BxZ>3+%<i5rAj_J7R4+T$!aD2a;gi)Bn`}6TS
z3phf^w`mXCn>hp8qK0=lbjxfD_OW?x(t&Vh9+*;Ha^W115Z1h>;N47NM^qN9Nwl$o
zC?tZWw;AOeHhoZoSwl4v=T$Tf(Td3N>mzT;#!%9Z=_c_4vI?1?Y;wy(<2Nng!Sts?
z@i#{^LV&KtC;2jfS$L<&O@0pqG7loUjfyZ{G5z#f^>Pxo6i&;FNoY=L&4#J+-iVvr
zr)o9w=wO&8ay=%g9jGJ=+po;sg2{+oZfGu7!LG1SMNSA(CE!<?3Q;8j#lA&K<O*$p
z){2S8+Vk@g(MOn2xT8S6lROg#C7##<+xfQ~E?(3t%8(qt@kA%+87vpQUJ50IxE~&6
zU?&`eqk3UGK8U2i_gZ)&?zfY`{v1b{@iSxeDh36;j8Mbd2&cqW=o*}c3W;qfxsKYc
z<B|Fv)WsXN3qg%<stBtXxACMr5(ujhw<7_`N)JQ=*p&y8Z^H`_dvFqz<ttVP<HZlt
zr$FZ(7Qn37gympArUxFhmpnT^1~o~J%vg0O5>oAkW7TfNjf7Og;fQ(%;(>^ZhTWvh
zt*|tlg(ICojEtSx0aul)DS<cqOQ%GRr-a%VB(|f6p+p+cy8?i+R{{<~z?L+WxszSq
z#hgSpbEbnMd3TVLsw$yhcFE|?#qvP00;#s}*aZ^?e(!-Qc~zvkJc+g_QZ8?RRF_4{
z`Y<K=?K^q7P@{3rV+$m`Lo@+o?vLT9*D;1vQ(b;cIGF$XU7A~rrWXz7AwL$!!6$GJ
z-|tt_m%&6L_H&2I054;wppT17xCve+aA@V^Fyy4=pJC5|1ZD1lkNAP5o4F6A_^pUB
zqdXKd9|%bfSFf#z5ae+RZQxo%EASjem58nKzU<cmGzdwo1HPR_@15h^wFBCCnf`mY
zLjAUY--K~NJw?5rj+uvFA}B%ihI(+MH`F=%hzARAwU@;j`OKnzJRtdw-v}i>kKlf~
zllxjc8U3vW@@flR8Ibe4Z}ZUgXcgFIUn_jXqa1-!Gm(M9#Bo^bCeLKH@;P=ICmN1(
zOIUh1N(OAhND`_!FU!qUA}P4Z!w3`I9740Gxkj`O)<LG0We&<5O5{*+ADgA$&gbzg
zyc`oX5`7~HJk0T-hJJ0nIdv~`@(`1}E*87VYOdYKD-pY{K@1eMJQVVFqG`E_i6ur!
z*ZvN}Z}yp5`U{9k^$U~=MO5?8R-Na^!*1p=80zgpso0Z>^&_7(lCOhksBqOVf`roX
z>(9`kB=Ac|Wq{Vf`L>Z4m2mxT{R<b_4%A<wFx)zDGLZM4!$772vEm!$rxRX35WOfM
z3u{SUGvg7bzVmqg2*3#l4NO-mM^>ZvG0$L5sLDL=ICjICv21gpt-QelB?e!nwac$@
z++;I`MR~rk?a-SJY`})|c<ZD#A}aFSWDpwQ^(qW?bx055)#!0%GTXBorRs3;*q)mw
zV<o9cTmu2|Y&;V327vhMDaTtp!bhc23TK*Pim7ArT8=B#P<5GPq3ZHTd3{3l*Q%d@
z)s**9k@Cz%1yAwsv?66MbEZ^*gZ$$*egZj=>#N3X9<$lQ8thhA<WX#1-0DiKi&c>d
zy)ajgij0a>srSC;OB?Y>MP$@|<taZ93KP^DgpO0Bj;UT)8-=U6QOWOPSfMx?sq_^`
z@Gq(qZ(_xjk;s02#P5m#4?Y$`^eHYJv&Q>8cqeL5a;qrRtwzvlB>6QCrZVr3xL;+-
z-{4mOSlg}x7Kh7XqTVNL@~#KnUjXZ;Dd&P)1~Tug{C9TRVU+(qNd5Hs86Gz7EKof&
zB5&7s6!<b$Wtjh*IMAVSXc4<z%exV{iZUJ6PYTDMbNq(NO%OpJ>{tb+i`r1aKpf`m
z@K>P1#uVfnr0R$3JCrA@ArTMfs~2WqTpB2zNuL8n-t8<Fmv{~O6IHy*&D(OO563rF
zBzME5!FoN{f_d-od9a-BfzD3!Uq@?MO?hx=0Ag8z4>IitR276Zv0E`Aj2iD|^tjxg
zH&|jx-q8>nf-;0<$!~DuMH-i&%3SVREco(e`9No?&TjHpu0|ay<c5arH29pZ&tkll
zjSbEK<h_l5zdwol00QHfKqBk&L%^}A#Ts1=|MOmFxXeg(wo9E_sWX1&So$G^uqi}_
zlMSnmdQ*P<78g=%e<lkz$@yO`7b9*9bXWb%F$(s@6CY!xFG?qC*rMUJWrikhfxrB%
zJyN4Bdz2h6gg9{3f%!6*3#*U(urmuEsEx3Ukm#;C?%?q2Wd9g-ynO%!N&{1F1(Nsz
zQ}QR023SOyJJG?0|M7bwIb$Wh$a3}UBhgy$%)jY~fL1Vq>be|rX!sEUCxiGVkvZ`Z
z!IAxb;x@MEcD7s<zr;l`?scrmcr)>J?gxUSi8mVf$DaO6famdH39PNyBRf1V=t>@M
z%li}P$T1x+g4}_!WbgPMth4&c!yijt{)Fs!*h*`sIEe}DAYHWzB8fYp#JekR8Di3w
z=TKeTUgn$dvFZIO%iIlMdYGnw`vDW!rE7<)_*Q#R6|47(*nNPM;4(kvlgDW?hhRVd
zf{6R`XP_&ipoHfary=3R<)zC^z(N?yuyP(Po_{z^WB#25sM=S*J%uN5c7>PiJ#zu#
z-ruN}`MC#p)WdvvEQ#MTdPkWl59=KDB+`+$kJO{K5$9(JI(k`00yhjYhfVqO2SUsK
z68Z*_9&LFbI4EW?nwgAlsP|#?Q~P7ma$dkgEa=xB#rW~+`FZvko+@*=H!PZci_x<g
zWiWUS(-0Z%;5?==C^{30{RMkZ*Y;X+nIZP7_YfY30#UDCE!xuvHTo`Y9C}+M#2h6A
zYcwbE2KQtHUzzg00}c-uk0w-%Zye;WJ?Amtl6oso#(kLVrW4EBbPd{8df79XbJ@3F
z=OCB2Y#KfWyWt1`zci|e{F*0<?6q;;OZjrcBP{l^;Pb&l(!oPTNkfizn~)bM@|mS%
z^w%P+*V>MS5aNADD<~8n6m;+u5DWKSa=+#McXn3c<S#b?ikJxU_#|Qi#|y-JxBja;
zh<!_bJI(#h7>L0vQh_tbM#r-MgNx^)m<fOr%VO8!46>i=YZUK%=3#2-THGgO9-b4N
zXP^#$?*dij?_Cg0)HF)W5<6xyqy%Ok3_ML>n4y|?Bk54@HH%(rU@=<5?_?L@>oi)}
za=}7FGM##cymQWsnKRCsdDbk%7GJ+1@6c^ii6-wM`UKy%jX}93mr3_*%d*5ibZd<T
z+WHnc)};O(%H(D1o6!ip2Yd~VAd?q%d0SW*|4fKnRR2s}m?y%=Q_tcT1z;DkveWV5
zdi*%~Nqj?=-p0qpryd{pT7L9{=GX!J+g{0yT%Tq6n?LZJ?$O{F##wr$d5-B&tGO94
zE9C+67L@N0c)!3$g!`1h!$Nsc;4cLJoz(hAfyV`gEY>+1(51;%6z~j#;pr$lG)w67
zg#HPB-{aCsDX$lJvA|BiO6s*v1$U=VZUBT;qIth{(87~6l%w=B>phfzZ#lL@QM(>+
zu6-fkW}912+gvM)vO~KC{*k~xv046pDL(`lrDyHuL3u^sZ-o9&0zb0ZGl2kWhzJ}f
zuwLL)fu{?cEwEAG`2v>)xbB(&TYIrkwg}7xt_e8wWhsAM;L{@cqDcN+;4cF_3U5mJ
z*8)Ej%D;+yr8C`eXuiW%Ef=^^V28kNhkcTBF2ob?LFakE8w7p@(4i+Cw&yQI@_T?W
z`mu8^^t>YUV*>v{;D-XuAj{VTxvdF+Q93vHp5@Y}U=-z4kaczk+1g#;R?^<!sb(A9
zfC=l;-H>tUAm}cA3uTvnB=D~RE9o^zy7abC{s|C%4sk1Sfv1JIk4*yChPahf=z5+V
zI)-_6aumCW_kfh|2R2@wgcz6)%sUep^I~KGT_Bi6(<zKcAWMMt84hHaw@P>}enZ3c
zE)uK~GR(UISOZ#FE?7>m7=E>3;HKePV26wt?t>Y-h3*urO|(2nhwzt?Vt7A*dH;o8
z72XxXdjnViyk5cH0X84+p<FAHABg05x><Oih~#+sqF|Q6_3G$8k*ooB$e2L)3$Fp#
z3an;d6YLDZ8t8~%X93%YjQOTu=K>1=dsnb2(%XsjD_~W$%$S1H19A>`oi-R7i~ukL
z81pt56*L=vA%%H&;(q~P)tYxF>dmIn!rN)=M7`M*)4ZKhZ;bE`!7t1kt9gf{-Z<gy
zH}*@t@tU_E_2$rI;k_!Jm_t)E?^V?M9Gxn>!^UCM`y74)qU=13dh?NY*v>bMH^7@u
zGlci|z$$1F%@OQ<2rzcGVbKSn8xc3Z75J~ATTnh8`T|E%_)Ex?qr*1>juki|`~b?6
z0WEqU{0iV=DX$W^05YnUMF+#LqWn<!HNdZjUq`KPgx^Q`N8t|vzZ?E7;Lk+<N%wQG
z;kD2_z^C2w5t-k17ol8H#v{;P)&@#PSqCWBlyw6>R6YpGBjwkj%(XTQeq6Z$kytTm
z8s>D}s51bk2s~}nER^StV(w~zsZnQx^2ehZ0lz%zJiu>N<p7_l>IXbr#gab(+%WiB
z)s3`a@C|`nj?uOVbFYrv1Iha$_XGZU<RIV^k%s|)8W{xlwa8;AzZ3Z;;BO+`peX&X
zg`NTB)aY}7KMXw&c$$<SDrfo`QPzKEbOZX8j2=NIm<LL02Zj*zgP{qC&+7zp#yk?5
zB(cl9rGY0xrxamNhfXWPUI@)7!RE-CsOr5CnhXD{e@g=|gck6AL;f+g6j55hR$%N3
z*gDyfFwT-2^M8kovCHKbQ9iFz)@dKRg8#CR{A0;pc|XnP?L;K{yd&rzpFjBD(!ftc
z*OXv;<sC!C`z0i+sCN=$4!tedbqW(NRnY;#mKyA(D*8lY?4>Gdoh(`m_7b$@u{qcd
z-<HSbBKtj>#}?r9^U@T*-cr09|85>zfnOBa*bl*K=v;?!Ysh08@z)>b=dsK28|#gE
ztP@WLa(V0u<U-zEDJ{Lo>QCgco%lVljXf*#*h_WPsxkIb9o>}2_97QPs4@0ZJslG)
zGUgu<OZD`gV9ICp^ohd6XZ1AZRBpkSe0L&azU1#TW`|iP6f+O??gBPFkKIcXX^mh3
z(K(qm3#N2Vri8ShbWWzE!hA{1n-)Gulj%W?%?>{TY<j|P?{Vbqjd|=|no9ff*i-oH
zKwZ4?h1G50$8n~#c^e6=6I!Oxqj*fEc$2U{&dpTVj_`B94k!$^JcrDGERP+=$~k5h
zOKvs(ID7;vXHu}GbWivwu#IOiPxbFi+Af&t-<h;aVbZ@d>5dY~2TLTM%}c%oonvrx
zQr`VXtQgA$Q~o@QIt5d$pG6M|rdmIXo-M(SlwiLo!QL&wepiBpa1ir*bQX;%!4iV0
z{+&fhg-QR;qE^9t%X&-d@wu2i&ofoJiVXBa<8Q+Mn#XQ{7Q+xjg!gthScDmF#P}TD
zR-`jY2a0sckyq=Sr0#KmDV+u0+u^uTz*y&8dZI|@JUU#Ya~{2{FzMesdQY&W#2IBC
z)#7}Q*+`sG=Fy;FY8>X#ZGx%Z;@ppas<)FMsW4@kkNwbK%L*7<b}k(#(s>>|QKa)c
zIxLt)QTK7Y<$O%@8i1WoA8PDOx87JlHMrtn&o2SiL~{hQXrnvTSV*0UhyG1B7SrA0
z8jEu7QS|FOf;n`JU@r@{$hh8}Z7iktH1Aem%gC0~p+$GOr(n0(AeciB3N}Zb9L0mn
zX^mjYOUr4qmgJaNPQ8Lz^h@+%Io+Xo?*MD2M>X#^?rP%#D#zWCnjO=P6|`J1i#|qs
ztLQexBdd(D2Q|ihSVhkYrsmNq`nh1rmR0nQmSkI2vHJXo`Is6pA5$Y%z<9*g(1%4j
z*ODy*s-j>m)oN@)*(PHx&DU50*gCpYumGK1Hq~gMeToO4%{JE4hnm-f9&Mm1+$r#A
zE){HwU;$cF_BeP8G;ckyi)f?f@n~+OoaV77HquR+$D_HC9@IP@%}w+j!IWPvrk6C2
z{c<rK6U?HWW!sF4=@Z41vAu-G;EKb~8kbN)FxB@<n34CVk12opnDS=<V}D*o$s(PX
z)AAynm(xbUEV{AmC|ypwH19US_G#Y!vf0Mv^pNI#6<8Y`*4SfZchP2gQ)Ax-wuM5t
zzhFzBhj%+^ieSpuos`tP9|^Bj^Ij2byT*={O+vlH8v9k*4x^La)Y!iOOA)50v|yJ{
zHMY`Bg^35Z(>0n`UVaL0S??AMXHdZ&)x5g$$H6<Ic~gO<=}pa>0m&=q6U{qYu&M>B
zy>lUX1x**sp~b+iq{W)I0$3Mq);x}$ZrY`J>%r@xJ2bBim`9Il-WBCn8NKui&FdHJ
zJ<Yqhd^dOvO@x0A-3@F9$sgd-D`ke3YaT~dhBgX@*<ZfT$WYGb33ij_y;puacu#2F
zzW~e95zXTf%h5ZU$Fn0xztcSKUyf=PDqFaJeKcJ#3!eW|V<%mzFygVjigsy99^0#E
zpXRYAuA+xDk3F%A4r|`0<@Xu=bWHOqD;RrU^Tt*@0IYnGYW;LzSJM>1EIOy+A!9c!
z(7f{nYt_8wipRj~)x34UuA!S0Ch;;rFA1h*>Hr<nlI+g`dQUL!-}j6G3h_l6;(B|<
z5n~Tc7tEo4!4_!VjTJ}1>(sn21G|>4QJAzhNRJAp+8d<rXi08wkX{mu+j|_Cy@cCS
zl6$E}uoyjA@e5-w&C%Ek6>k}TM01w0Bu-Ej|6p84mul>dir*MF&~+Mnzv7>bo9LLv
zJ^^+Mty!+>IhDtaeRPe+$}9ib_yWD7vC)+Q^EP^@SxKG>>`N57Kw;+ryMtcR*h*k`
z(ew)yuN~Ok^w0{0Wq|Fc?`!P($_n#ddRJq&R7TDFXy!^K`IX8TuxB;)eB}iCGukXm
zM2udktTq3P4ruHjD<_-x(>sDy$-evnTGPN<9P#x7WUp2_|9n)1`2gLmvA-O(%={|-
zLSsJ}bs?}ZYn0?Wqt==a(wemj`(V@rI><$g#$64^M{O_<(zBWutzzCw8k;28;TBcz
zOu>Gxv2&{~M!joV6>nM9GV{+Vv|eHBs-nPVYHVXw8?c8iR=mEd3iBa4qOlvRQs%>S
zM3Q@q4pjA+k5ccYEUEhb7<D!<ruzOE?Gs*%*s{my-V(`OC6bS7N$$~Obht!vUy0<)
zCA<SAyf;g<e5f(i`a74yFvRCOReQ|GsI^UDzpuK%e4O@atUj{Oe1e|RSYzaN^PBXt
z#@0tB;P(1`!BlUbq^F8nf0D{KE1frs<aCYwN#tJhN!l!!s`nHfX<$j^rKhM@croI>
zKSkGRjIDl(8roSBw+e#I(b)57;VIfDn6L9#155fk@70pO7s(?UGoxJZLyd(5yJid5
zi&3Ru?`bS1*n*B?o$ogkV|V9y-!q>A!@!NmzbAZEw7vH4s#955tl7nL3_L{vG^n^d
zPbdonE*6<pQogu|u4Jwi%3gs5NsAQa8=#x?93bD8aVtzQ=&d|7>3<6McS0$1nadQD
zKATeP?enFUf?H8Gwf=6ms>-B{aFv}37S}zI{BRpaYNe{mp!v8GGIT4dtu~=3c(s&=
zYb%!FS|&X$l21!naYt&A+hQ3X4%OpZqP2<6_9FOUIoDNCS*zfaN~f|xU;@`!1}Ug|
zp`enyTex>uum@CIOgHuTDyv4zIF6N(EiV5H>YDVCXecgoWa3U<<csP5US*~EiAwP{
zph3To^502W&9$dTG5t+}YNjZ-ql#lGTg6<Z=MI!jx(m>vuLymIKowEHld_6)6(K%d
zdCbP$VGuWsV~OuV(*nOKuv}nRV589#ebH<(mPUUHxGMT{bFIPhYmJMd$57^*n<nG(
z=-c3?qVEEBM}H027yVy=d!oMuyfOL-;1{EY)nwcqb*xRs{n4Ye$#^(gX|+S!Y@^Y5
zI=atnH2wlvFAa#Yw7x^yYNQ`TYpgK67#(A^)6b$;8IANtw9aaze~3PU*6#^l4Edd9
z_fjMMQ*@FQA--K|qEAq3lM$*u1#MMVC#)u_tG>!;r&FqDz>?Y3=UBHJjn(r|UK(8h
zczJXQU@Ce6V0UyiU|+Nqa8Gm-;EmDC0lygSu=b+XcI!2<ZIiL6x*O%4W%FR$1=U%U
zH=@PYj4joZ0N;r2wmzV5l@EfuO<KRI`WEXW<L2tOV99MlIZ*v2$grJn8IOSSmhtUs
z?&-tPEZ`5S@3G#3uMSv-$-WAkKdF8M^w%NNh@L)SMa=iAYf%2MnmzFQ>TA$<yJix~
zY{@3$`pRdlv8G$|9l-jU?^zSg*)>OLn%P`aVYbtTnj_Xk>ZtjzfEm=9Cgo{T-ekN|
zc?|u%C;a#D<gS`uS>?2+=AU8D1=R-tKX&V^wXkXuZ8C4c>%i^i-8Hto!#r5y0)D%u
z%8nS{tr=}^GGDBzwfoICY9`uy&G&0gMfua38TLf+;Y6cm^lW3AamMJg?VHWBN6)kG
zF&B;AZA>&S8r@{~8|l%@?EB4~qgU8rxhXtkUNd@~eaO5X@B{jj(WlT0=Dnjiq7IJU
zU~^<%Vz<+yLOBG=M;Mna_K(f)kLJ-oP<;ise?2+}$u~#uv0pL&Ve}1vAG^1L{_*HB
z)>?^~wMH=ZICMs1cc7Jz-Ti>$V%y>QDX{}~qcJ14%=`d-H;f(T=VDLVA4%D;R>hvP
z*>5kP?^|L&g5;I4qkww=4db?0jb#`Q#;!8L)-$o6+hOZSY!dCzvCXq-2OW(ud<~HG
z{0-{98~a;3Vm%$5ZA7g91^KY?yV$$-A>tF*Sj&n3+8%5DzWUep%`$6l7kH0`mGRxi
zJ;XN>_t5zGDR={M2H-@C@0$<N!uUtf!zbKB#HX}Fa-uy%7se?t&EngM+le*YP8;J+
zpb@nU;}D(cRs?RA`>dNq^C7uK;W#;pzkZsIpGN&gUwoPUFb$w?ldg4hye6>MxGVls
zv)N*Mnl09Rh$fU(1ez_rPkBLfz92eZ(6;f(e64kFe0*T7^^N$%z$S~&q?;^d?XOVx
zkeuuf5uYSqphNLf1253g_!*$TjZ^O-;`8kxdMiGOZl~YG??YdX#~%Qta?C@3wPPML
z-lEgS908m^<|rV?^INoP%pB<9@(Xmyn0Y97k69QntZT+B50oR@tP1p_Uz2Dr;D*5M
zfR_dC0el=e`8w(jgy=iu0Uo9t;P<6G+UP*}Y`{udZxEjP7$#Hh6L{3z9%#Uiyl=v@
zl<~o3;TcpG91mC>To7JFkA!axO}5O?O`#6!OMqWRTQ`N?w!Q~A+5T&$+vCEZ+j9Zm
zwyyx39C!e5ic?KDh2C_2$uP*!u3^f7IxZg;_@+Rbz?24o3j}T!I4JOdz{3LH6iD?f
zf1shvx+&C;w-P=dxG8XJ;P$|sfg9-_^WMPyfg|QO0#5~=4Qw#J8~8!s6?%Y<23`rg
z9{Bsf2Z7%O-lyLODxIh^)~Rz&bxwC?I%hlcoJG!s&KhTfbFs6<NjuM*z0Nb{E@#lW
z-~57emvf(Uzw@y3nDexA$a%r}fpgG2>b&Z_=Dh9v%K5<gXXj&QRB%jiQt<TP*};Xu
z=3q<k;@~v%^5B+WHh6XLy5NU&WAK*XUBNF0zZv{)@W;WQ27ey>MevPaC{!7WhU!D7
zg=U1#3ME75h1P^xLzm*o=+;nAC>!bz?Fo${15dI{JfpI(<Nm(<*7J%oKCpkQd<~wd
z@v~#xB;&c?XsoSxmWn4<{5H)3Jo(07f^aVcJYS%q^p-J2l@FD(%y-L~@_m7ddqm1V
zEx!r$ODmoPET*?tJj)b|-=}=I;%7z(Z~U0BA_r*VUWMOdxEe5oxA$z&ZwJH<4HlYs
zzYKqK6=y03^rrw#x*k>=v=`8%8?ZMp@r1q%ls^^tW%S3Sdjvi#z5Tkt=kTo0#DA5F
z;dk(C&!Fc89)=f8dK}Q8@4*u$eN*7~vFE^PMc_+#HplNaj0fdqJbg3iCjx(lXJH1O
z*Vlvc-|!^Npw|Sxjwe_q{ZioDcw%MH-vNGNRI?tV!u$ZQeA|P(M=JiuV_+8%3<{f!
zmeTld1((uXI&~P$pmRo`;g=2g*H71B2TAi+dYye;sq<)!`p<0n-?ONBbxVIXm+Gc9
zO$!(4B51kxp3e46rzW)We|Bndy1lnO>-A7;e{ZU@C6%M5E!kYAy(70U-P4}wUz+Yp
zDV~&yh*LUKU8!yDxztR`7iUR>OLpZ_J=wI^lclz{b*c8wmh`rs_O8{<x?v`ErZcII
zT=QylAyue<HZAos-B}n-OVg>YPHOJSrM9Iq3duKf4lV4<<zVz8uP4`@?n!01kil>F
z@*;QvZY4OZj(bLH+Iv!6w6x2+s!&>(Nwr^ztG%xFY<7K5I@grTWr{r3mhSHDN_D5u
zL=K&4lYc`xII_&p4vsA4cXecLhu4R`XK2bYynQE@O<A8!b*{=v`N~uV{W)v)jLxnu
z>dtm}nXdE}QvRKBQM#woyDB?F8t{pWGwoO5tv`+W)Kz`msZ6>fORKkBf$^Z`B|S`O
z--1!s+7@|TU0}&@a@*-GeK|05a9;OCnKav|C7V}kGLJdP95Ky3TRmFdp52}koxc7Y
z{_rQWl^RlErK>4KtJZ^u|A<^uCez+uFks29j#MvOMa@mw{+^C?scc^tqL<5y+Pk{8
zw0B%d9O4V{E3XypTQK@dc491>GI;ax!c_m7Oe&i#Q2YR5pV4Bk<I0v?KYXyz%b+K!
z3`ell2%#12{a#<L5J-z9nAsLFl2)d2+r3Wdx^~UF)K=|8THmuB)37VmneRctiq`G$
z>PQT&M)7$Vm-KXaorUq7p(nG96Q=Fv+5Vsu4d0AqDNL1g2VvB=U{ay0?YUwrIn>&_
z(pO8o(_+l+)^v9Y-RbG$cSd`8zGXeQ1>ZYU8H9_{f&8;G%_GiIJ=+%crMn84OzHMq
zzPGeEwWZIG!x_jw+j_igj$=?5nC&gOR4;n!^=;c;81F^f+cTUF&YDflg+6h)ySH5h
zEXT?s&L<1|IYI@Z#;kK_ec_Ai_vFr*BQ$);h^<Ixb1LJAI~J!p(%tP{v<_1c4q&~@
zWz3LMGTH6m_`|9MW<X;q<Mp<rGCR{9sjOxfy4-|u+1buP-@G{OkCC2gOl`_$Q{7v-
z`blMUWUJhEo)kR7OS{?;v5Y7OW7=syxAb<UbE{<%pvhE6A7*2JOZ(Q;A{5dc?Og@$
zX?uMkgwM`&#_QqaMyq=<;d5w73DKIa_S{y)23`Vg>g`?Zbt8|Giac6`Io6j^v$_?l
z1l9(I>_3jJqJdeQ+S(4`5;m>z(vs8`dwr5&(5OTcC)!<zGY(4`0X2gbwr7#K;aJ34
zztGoUsJl~eb}0t8rMITxpAGF@eKKArnr3PoGrB+d5t1qB^U&)qxKEM`TE~E9C6nls
zv{<iu)RMkhrUI`#MLloo%X!R_rL9D9N!sySQ%jk2wWTAIO7+k>q}z7!3{S7(6vQ}I
z@l0-wm&Fhx;jDy@VQV&5u&T954OY?U>)2R_-GZziI)@jLdF5C0kMne)Do?L80s?KV
zOLevHl2Wk_*=NkqGi8Pn#}xKw0x!Zeql1IIH<h}QIKQ=J`@6SbvF0-Nj{MctLs#)y
zLf)1u@Up3tL7UQyWqAtfi-If`;uN7WWv`-ahPI|@%F^_%Db$9XOl{lK+qM&zq|m{o
z4k<3`@_JI-K~D0pCrcQ?Zt8-oA=I`7D{UwB^&-l2d1rf9mKJp(;WcNQd-7W(%u;M*
zplE5vgAJ61aT0K}ER`#o&8?owgS0(ITeGw!LtCz*C2A`n>zTI|WCp2R)@MjCDH;;g
zPVdSTUdUaT+LrFo80NED)J}zu5Fw{x5@U@KNvvhO__1lcZMrDkiTnZWZAEB%XJ;F)
z5=f*y+fto`PWGkX{BCb&s)W(HuvjdclEl-4X@{q&=%}nT+n`$tXi~npF)2Wzs8N<H
zLbu|vHA`t5rW7M8|0>g=RXLW`s?t_}^1yVop@^(rm3q7$wW=-Q1OplFE`|`B0Nq7}
zEL2}P7{O{TB36-a^dfPZLUVY%K!m5LFH+>D&QAPNWmPKY?--z^HJw8mV@;~WP7#uL
zMM@ya2yf>>!t9mCWtdQZc?zMM69u}s2#GnBS>2;E0(S-*9L_hoHyT^1zoBGBYO7Kq
z1+*gHY=IQmOs`iNiEr>3Wj22U%{xJxz${%v-R3N28V(3-!ZvV<aa1lwxneQijfBRg
zPto6`d?QwI+q#kBDrk`RVA7Hl(1d(<ip5fdOmS*tqZH1aDdud+N+r!iHRNifBd(xI
zkXHq^T$QASLJi*Z6*hTXvw)#?DSN9nGQTM-$nxy(RNLZoj<*-Qzha-R-b#y*2Xm=>
zvQa3u<#`H@C`kC(S(KG6Oe&L=9Xlr^YU$e|hc=`*-VSlLTPFH4!zoL4^kD~65M06Q
zTPZqJMDSvv<{nLI&7`|&$u6uUxs>c;y84^5i*YE?D*`9*H18=>bS1Vh$U2#{oCMmC
z7jP&9L+yFm+Vn<|c<<4k%gR=g(3z~iZOG@<wzlS$ww6sTtxHz6tz5l${fZ@Qe>b*h
zD{vT;9X|Hwy?r^PXoidWG8s&${HeG(t2eU6D}CWiij>b=RJDGqt}RT#s+8Ugw5BrM
zusw%uP+OZw>CH}lQ{L9LX!WY4&CAd!#2fZNJz2GeQa7C4zAeRMZPf}7nOz90`ntM!
zAJC~z5$%}_b*PPYn=DvOUHI=mYs=}P=2cB=n%hcfvRsO{)#e3$g8P+!d8rhCD;Do0
z+H+W^Wch8w_6sXwbM~UeOL%kH*TK8IPIV~EyWPW!MXDYGzCEY%EpMP#<we@z@lNQ%
z;)vPanc9l+=*)9_uwu*hMUEBd8y_axu&&`xA+@z_#j4uI=h>d__FV#I(c&%J@_RIY
z!_>|vxE3r+c}}aRM`lST<Kg&#$nPfEt&PYj8ud1{Rmy7;z3XH{vM#lwFNI@)!qgQ8
zw~E=e0{bl{x2Sy#2c5c0Skm2_>t{57`5*;#QpDaBL5T5_n~I_FPi_8vg(|5!Lge$8
zAH#n2-mbnZAqoMf$R2BojCC8S?+tpIW!q@$Y}z^tS4LCP**4y>5cWTExgb5GRu6|4
z9Ew^!y(x!x&`aQQe!|%4Z;0U})#~Z9lqyI?aBz@P1SzzreSNF9!n+Eaa<8{dvIR~j
zYE%>yKgr%qCJEotaAs}J@>WU}`3j4B%$qi>|3bufRwZvWtEIdm)w2y-9;88?H&$X-
zvq~@W`Ey~bC#OiA>sme5jeR~F*xZBRMmmCtY{VkIeW4Z)XIy2|8ss@-vYj$fSt0KM
zRYb};00~?P%63F{dCT-pNLkyQMdV|vE@HAJDiPA@zqtpS+#VdOP`P-=$hz49yh1gz
zSJuhC4PT&$u;eNDJ%5zsDl6N2(pwS4It4IkDUwY8TJGxBG_I3)TgPqrS9W^usg7b|
zD`zA<r7&1Hkjb$V=e~Z_D{RA7w`{<Q#48lH;-4V}(TPr<BvA`D3+>XXe~AIw&;-s}
zbVYskWTB$tC%ZxmtZ&u~@sG+&%W!{y13A`@c0PQtx>Yz4@V9?jRr>;VSSGhVy`+cN
zrB0E+wwfmpmJGhWLR#F8vq?)YpLf^yY{7*Rt3d|nQqtY+*rwywMUmTk)W$`8tCvZZ
zXU_{wQegI?Gy<0C&Djm<Ope#&W!M_3({36W6tTc}EFd;>PDT1qM_(0BJS-AH><1nG
z>r%a4Y$K{@3QFoIEt6el9PcHE-$BWKd1x}+2G#3ZmnOxnt7S#aFL4ryyt?KoES*oJ
zYU$AZ^A}8nC)=h+%|BXSm`2X$$}9ES$YuDb<4U<a5SAo%+`aW>mCy3+@WQ`^6E551
zpS-0CF8H>lu<q;A5G&1-inh4<9j(r+Iw*?I@LUy>Pu)Oe7pJ!&iE?vl`m3V`_;RC&
zs~hagv;nw8%Jl0kJS$nqCrvecyp9%cQd!?n+CsieYxR(6kc(9P!fhm1C{`eR_^hy#
zU6{w1SGq@)=1MlTEovL9)-h&Fl;-alSOrc)Sir<#*xluyHq5|!&rc=DIvqb!yb>#a
z7yg%}xuBeZUnS=79H@`~`gGY=Y8MX5%~5-aeV#qXKG&XUueKYg$zEtL0A()l21?rV
z?X&H9Qa%@@+4wAg?1gqCxQijT01`7%$H0$hr=umjtY}?^zZS4n+D}mf-h18(xEucs
zodNvqDxXeut6&XVxDeLhDgf_)H^IUTuzsSmnA(YYt-yN0ZGgTWz;&pFYcOElptj)q
zYJ9Io8-!=4ouZK{rr@^^J>c=LZz;&7F4%>#wGlsTpNMBm6i7jWD!O1_hxh~D2(X9f
z%r>;b_M~A=3S3;UqJ=iJ#+Gz|&i-R-x508M<638+4u0c{eyd)!L83^rH3My*ivRYt
z_JfrGJ`Mjd%f-;fEu<mc1HBpacQbywL{nQp!5iIT$qA*Zm!nP=Z??BUE{B@4;QQj5
zMfC7={CA}Ie>AoQtz<=aH}F>2+zWf*fw30?_Tx7Z+(V9*H7Kzk*t@!Rq!pI6pmqiv
ztTRLtFG25@&|>(BzZXFxdu$~>i-98^#$N)e!q&iZ%Rp700I%f|U>m_-g4R^cRj8x*
zmp}{l!uX%6#q?Q-q)R|)1#J=j?l0433vCI0gR+?0t5X&=0b2oD3+!2j?<Qd2j$JCg
z<;$Zc#NQ(HY!zC;>$;;R+RG5*3jvdu0|us3@8z3Tm;ZLj(m$ScuzbZ=%|E5kx39i*
z!`L}*-W+=3{I+W&uex)Cqoaejns`&W&cc&o!)lOE2;Wwq!7!>q0xJY6N~M$o0&Rhg
zz@WgeKv!Uyz;c164Q;ht9A%hJ$a10)d`9ClHqc-iA+%!}wY8>Gi`f|kFiZx9v|lH!
zMQei%7G#)9(TOmz64mSQnTpRee9j0#AUZ2lC$*xpK$>OZ&)++m&?t?J2{%~LbEA#X
zCb1`aZm_`wuCb)UhD6u0Xk~~^;8vF4(~Qqbe3DiOEr%$iB-fjc$^D8h25%ESiv_z3
zrOTwW29`?qO_190S%b<TP$b2C1*6SONDCp&#cnBf+aZWCNHY*(bO-bMgx|;1KBzOQ
zqEn)?0%U}uv+#gCGA0y~ui9ELqwra@7PyHoJTe!8O-5xU#@xgc_Syh*D=X`2p`mh=
z0grL7Yw#(@XS(e~2X78JI#y7r5^~Z0TIi^)1sY~$sEa@fg~+Om_Sa!VAu>?QRd2_C
zTYd0OGz`ZM?gib5Hll`6sY%zHj>R~KMJqm+;<Eyu9bEYy6qe(&8J`6bE0w0hhKEok
z#40K(qk{*X1|vH7Fslhv0@w^320;d41}=j#u2If4U@p3h!I5~HWjCNN0Yui|570_w
zD1<i*B7;Yxvrx%`h!NuM3J7q?W`J--3k<>xTn1$#jP64_H)cj>K?$^n!c_(as%`@Q
z@F;vUD>C?z(?E66!4Jgv4=V8<g9!}(hmUG8oUmpu&#1~eD?lh?9s))x8UnSIk-cN1
zd+Ta3WK5eFX15O>#1NvX%F1wqSyx#Hp{bz;)2ybdYC|-z&dA=grHqBpsI7Eh3I^9k
z=E0~!)wxXB+f)go_!~3~o^YBOVl?qG5bVKBu7&q1pv7cixL<X5AUY6kFt}f^QA&H$
zC<QUi1|JSV6n);??KGIRV!c^uab~Hl3q>0O(E;7Dy6CLB$le{wh<=y^TL#3ZwPMB1
zLK?hT47)x^c4cKP#*aI2vki~n@1dE|y|=3WvzEx-+r?9ND&!ue`9Ae^zf^o!ob#B#
zZz?f-nMU+7Q(;dF>vr_rh_<6Yc$=fzP%I7_!!&K)#@ICghGBPdc>;hLq(IONMLPkl
zXr~=CqMeo#8H14Sbb^?zpdr*BE)NC(E%~r)C5vI^26@IZ!HjkWgI2T_s=%077DNK9
zjZUnDU?><cLm@C+C}ARMaK(vA_phsh;YuKbzeY|JIVhOI0#jI5U2QlRK=7~vFmh~S
zj%~UwfYRV~Xca8^wqW0N%(_EZcR+l85PIf=0)2=={(|rwOkJSAm*cx47zl+TdmqF9
zHMJGr5Jq4?O(ca1k(8998@cjEMNcz5t;*e8?nasUmnvFcIA}%sqB}H|zXJ}(A580K
zOFyUyx=4(*OpEpdhyz0GN%jxA4ihHAxuKw~3QPh8r1D@$N+u&t&|=?*gEoAHC4>oh
z8;c!ip|LJ@GA3(XWk~)X?P7jyv<n7GyU{Mw37bw?SulwC9SXZ;(Jpp%*XST-Ypqm+
zZK%wKbyWl%w4?sVO6*FGjcAudLKm{?US4JfxU+lH(}FdaJC|`g55sf}zz5L*7(EL(
zcbsLQJ0#UBqg}AsEk^^)cA4x3?dSl+2bdSVhV8nBy|+)sd0!+LuB(hzAx2;x2g5!{
zHS#btqKqE0ohUJ-8AHHT@0F_ea`8baK4`f{t!z#P_o@FV-QedP_1Jive#DIPhyS{W
z|Gq(VI4i74&8sKqlK%t|mr2Es(knGvzrIqV(b893@TXR=I^oYljc>U!-HUq&+-<1m
zx6M6#>Tb>SWpjpOU{+({G4g)}1AlYnl(78D$;33DiVy!Qzny4Z%i@+Vud3f!^XS>j
zum9D3^X6T5X^!_~IJ0iUF?`mH-p(y7d+Fm0)xSMlZqUe(uihfL0t?qn8Qh)A{hhqT
mlS;`8JuLC*RBBjI5dDuR9Z-Km?6&j&BO3evZTx5R!2bp;u-#Aq

literal 0
HcmV?d00001

diff --git a/PascalABCnet/остальное/Счетчик.pas b/PascalABCnet/остальное/Счетчик.pas
new file mode 100644
index 0000000..af5769d
--- /dev/null
+++ b/PascalABCnet/остальное/Счетчик.pas
@@ -0,0 +1,31 @@
+program counter;
+uses FormsABC;
+var 
+  p := new Button('+');
+  f2 := new FlowBreak;
+  x := new IntegerField('kills:');
+  f1 := new FlowBreak(20);
+  m := new Button('-');
+  y:integer;
+procedure plus;
+begin
+  inc(y);
+  x.value := y;
+end;
+
+procedure minus;
+begin
+  dec(y);
+  x.Value := y;
+end;
+
+begin
+  MainForm.Title := 'Счетчик';
+  MainForm.SetSize(250,200);
+  MainForm.CenterOnScreen; 
+  mainPanel.Dock :=DockStyle.right;
+  mainPanel.Width := 170;
+  
+  p.Click += plus;
+  m.Click += minus;
+end.
diff --git a/PascalABCnet/параметр цикла for/for1.pas b/PascalABCnet/параметр цикла for/for1.pas
new file mode 100644
index 0000000..3bdfffa
--- /dev/null
+++ b/PascalABCnet/параметр цикла for/for1.pas	
@@ -0,0 +1,6 @@
+program for1;
+var i,k,n:integer;
+ begin
+  Read(k,n);
+  For i:=1 to n do WriteLn(k);
+ end.
\ No newline at end of file
diff --git a/PascalABCnet/параметр цикла for/for2.pas b/PascalABCnet/параметр цикла for/for2.pas
new file mode 100644
index 0000000..40a4c27
--- /dev/null
+++ b/PascalABCnet/параметр цикла for/for2.pas	
@@ -0,0 +1,11 @@
+program for2;
+var a,b,i,n:integer;
+ begin
+  Read(a,b);
+  For i:=a to b do
+ begin
+ WriteLn(i);
+ n:=n+1
+ end;
+ writeln('n=' , n);
+ end.
\ No newline at end of file
diff --git a/PascalABCnet/параметр цикла for/for3.pas b/PascalABCnet/параметр цикла for/for3.pas
new file mode 100644
index 0000000..903c677
--- /dev/null
+++ b/PascalABCnet/параметр цикла for/for3.pas	
@@ -0,0 +1,6 @@
+program for3;
+var k,n,i:integer;
+ begin
+  Read(k,n);
+  For i:=k to n do WriteLn(k);
+ end.
\ No newline at end of file
diff --git a/PascalABCnet/параметр цикла for/for4.pas b/PascalABCnet/параметр цикла for/for4.pas
new file mode 100644
index 0000000..ba40d05
--- /dev/null
+++ b/PascalABCnet/параметр цикла for/for4.pas	
@@ -0,0 +1,11 @@
+program for4;
+var a,b,i,n:integer;
+ begin
+  read(a,b);
+  For i:=a to b do 
+  begin
+  WriteLn(i);
+  inc(n);
+  end;
+  WriteLn(n);
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/параметр цикла for/for5.pas b/PascalABCnet/параметр цикла for/for5.pas
new file mode 100644
index 0000000..4d8e6d4
--- /dev/null
+++ b/PascalABCnet/параметр цикла for/for5.pas	
@@ -0,0 +1,11 @@
+program for5;
+var a,b,i,n:integer;
+ begin
+  read(a,b);
+  For i:=b-1 downto a+1 do 
+  begin
+  WriteLn(i);
+  inc(n);
+  end;
+  WriteLn(n);
+  end.
\ No newline at end of file
diff --git a/PascalABCnet/урок 1(ознакомление)/РЕШАЕМ УРАВНЕНИЯ С ПАСКАЛЕМ.pas b/PascalABCnet/урок 1(ознакомление)/РЕШАЕМ УРАВНЕНИЯ С ПАСКАЛЕМ.pas
new file mode 100644
index 0000000..69fbd86
--- /dev/null
+++ b/PascalABCnet/урок 1(ознакомление)/РЕШАЕМ УРАВНЕНИЯ С ПАСКАЛЕМ.pas	
@@ -0,0 +1,11 @@
+Program programma_kotoraia_smogla;//����������� ��� �����
+ Var x,y,z,a,b,c: Integer;//��������� ���������� � �� ���
+  Begin
+   WriteLn ('�����, ����� 5 ���� ����� ������');// �����������
+   ReadLn(x,y,z,a,b);//��������� �����
+   c:=x-y+z*(a+b);//����������� �������� ���������� "c"
+   WriteLn(c);//������� ���������
+   {
+   ��������������� ����������� �� ctrl+ ������
+   }
+  End.
\ No newline at end of file