From 76710a8b2a1c8484be8b3575e11eb8b229c065f4 Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Sun, 8 Dec 2019 21:00:48 +0300
Subject: [PATCH] =?UTF-8?q?=D0=9F=D0=B0=D1=80=D0=B0=20=D1=81=D0=B8=D0=BC?=
 =?UTF-8?q?=D0=B2=D0=BE=D0=BB=D0=BE=D0=B2?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 InstallerSamples/Games/Animals/Animals.pas          | 8 +++++---
 Parsers/PascalABCParserNewSaushkin/ABCPascal.cs     | 2 +-
 Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs | 2 +-
 Parsers/PascalABCParserNewSaushkin/PABC.ymc         | 1 +
 4 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/InstallerSamples/Games/Animals/Animals.pas b/InstallerSamples/Games/Animals/Animals.pas
index 0fc591ff7..2851efb42 100644
--- a/InstallerSamples/Games/Animals/Animals.pas
+++ b/InstallerSamples/Games/Animals/Animals.pas
@@ -32,7 +32,6 @@ end;
 function LoadFromFile: TNode;
 var
   s: string;
-  p: TNode;
 begin
   readln(f,s);
   if s='' then
@@ -40,7 +39,7 @@ begin
     Result := nil;
     exit
   end;
-  p := new TNode(s);
+  var p := new TNode(s);
   p.left := LoadFromFile;
   p.right := LoadFromFile;
   Result := p;
@@ -66,7 +65,7 @@ begin
   p := root;
   while p.left<>nil do
   begin
-    write(p.s+'? (0 - Нет, 1 - Да): ');
+    Print(p.s+'? (0 - Нет, 1 - Да):');
     readln(x);
     if x=1 then 
       p := p.left
@@ -90,6 +89,9 @@ begin
     p.left := p1;
     p.right := p2;
   end;
+  
+  
+  
   Rewrite(f);
   SaveToFile(root);
   Close(f);
diff --git a/Parsers/PascalABCParserNewSaushkin/ABCPascal.cs b/Parsers/PascalABCParserNewSaushkin/ABCPascal.cs
index bb75c4e0b..94be30363 100644
--- a/Parsers/PascalABCParserNewSaushkin/ABCPascal.cs
+++ b/Parsers/PascalABCParserNewSaushkin/ABCPascal.cs
@@ -2,7 +2,7 @@
 //  This CSharp output file generated by Gardens Point LEX
 //  Version:  1.1.3.301
 //  Machine:  DESKTOP-G8V08V4
-//  DateTime: 29.11.2019 19:33:24
+//  DateTime: 02.12.2019 22:08:18
 //  UserName: ?????????
 //  GPLEX input file <ABCPascal.lex>
 //  GPLEX frame file <embedded resource>
diff --git a/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs b/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
index 27603a275..97aace8dd 100644
--- a/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
+++ b/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
@@ -2,7 +2,7 @@
 
 // GPPG version 1.3.6
 // Machine:  DESKTOP-G8V08V4
-// DateTime: 29.11.2019 19:33:24
+// DateTime: 02.12.2019 22:08:19
 // UserName: ?????????
 // Input file <ABCPascal.y>
 
diff --git a/Parsers/PascalABCParserNewSaushkin/PABC.ymc b/Parsers/PascalABCParserNewSaushkin/PABC.ymc
index 18dc964d6..051ff54e2 100644
--- a/Parsers/PascalABCParserNewSaushkin/PABC.ymc
+++ b/Parsers/PascalABCParserNewSaushkin/PABC.ymc
@@ -250,5 +250,6 @@ script=
 
 
 
+