Add Pascal learning files

2025-11-20 21:18:32 +02:00
parent 1ce193cc0d
commit 258f24570a
37 changed files with 587 additions and 0 deletions
--- a/PascalABCnet/case..of/case1.pas
+++ b/PascalABCnet/case..of/case1.pas
@@ -0,0 +1,17 @@
+Program case_of;
+ Var a:integer;
+  begin
+   WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>');
+   ReadLn(a);
+   case a of
+   1: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
+   2: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
+   3: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
+   4: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
+   5: WriteLn('<27><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>');
+   6: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
+   7: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
+   else WriteLn('<27><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>!!!')
+   end;
+   end.
+   
--- a/PascalABCnet/case..of/case2.pas
+++ b/PascalABCnet/case..of/case2.pas
@@ -0,0 +1,20 @@
+program case2;
+ var a:integer;
+  begin
+   WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   ReadLn(a);
+   case a of
+   1: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   2: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   3: WriteLn('<27><><EFBFBD><EFBFBD>');
+   4: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   5: WriteLn('May');
+   6: WriteLn('<27><><EFBFBD><EFBFBD>');
+   7: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   9:WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   10:WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   11:WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   12:WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   else WriteLn('<27><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!!!')
+   END;
+  end.
--- a/PascalABCnet/case..of/case3.pas
+++ b/PascalABCnet/case..of/case3.pas
@@ -0,0 +1,11 @@
+program case_;
+ var a:integer;
+  begin
+   WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> 1 <20><> 50');
+   ReadLn(a);
+   Case a of
+   1,21,31,41:WriteLn(a,'    <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   2..4,22..24,32..34,42..44:WriteLn(a,'     <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>a');
+   5..20,25..30,35..40,45..50:WriteLn(a,'     <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   end;
+  end.
--- a/PascalABCnet/case..of/case4.pas
+++ b/PascalABCnet/case..of/case4.pas
@@ -0,0 +1,12 @@
+program case_adult;
+ var a:integer;
+  begin
+   WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   ReadLn(a);
+   Case a of
+   1,21,31,41,51,61,71,81,91,101,121,131,141,151,161,171,181,191:writeln('<27><><EFBFBD>   ',a,'   <20><><EFBFBD>');
+   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('<27><><EFBFBD>   ',a,'   <20><><EFBFBD><EFBFBD>');
+   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('<27><><EFBFBD>   ',a,'   <20><><EFBFBD>');
+   else WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!!!');
+   end;
+  end.
--- a/PascalABCnet/char/char1.pas
+++ 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.
--- a/знаков).pas
+++ b/знаков).pas
@@ -0,0 +1,13 @@
+program div_mod;
+ var a,one,dec,hun,rec:integer;
+  begin
+   WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
+   ReadLn (a);
+   one:=a mod 10;
+   WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ',one);
+   dec:=(a div 10) mod 10;
+   rec:= dec*10+one;
+   WriteLn ('<27> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ',rec);
+   Write ('Enter');
+   ReadLn;
+  End.
--- a/PascalABCnet/div
+++ b/PascalABCnet/div
@@ -0,0 +1,16 @@
+program div_mod;
+ var a,one,dec,hun,rec:integer;
+  begin
+   WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
+   ReadLn (a);
+   one:=a mod 10;
+   WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ',one);
+   dec:=(a div 10) mod 10;
+   WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ', dec);
+   hun:= a div 100;
+   WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ', hun);
+   rec:= hun*100+dec*10+one;
+   WriteLn ('<27> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ',rec);
+   Write ('Enter');
+   ReadLn;
+  End.
--- a/PascalABCnet/div
+++ b/PascalABCnet/div
@@ -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.
--- a/PascalABCnet/div
+++ b/PascalABCnet/div
@@ -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('<27><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',k,' <20><> ',d,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',r,'(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',s,')');
+  end.
--- a/mod/вещественные
+++ b/mod/вещественные
@@ -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.
--- a/mod/сложение
+++ b/mod/сложение
@@ -0,0 +1,14 @@
+var a,dec,hun,one,k:integer;
+ begin
+  writeLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
+  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.
--- a/PascalABCnet/div
+++ b/PascalABCnet/div
@@ -0,0 +1,12 @@
+var a,dec,hun,one:integer;
+ begin
+  writeLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
+  writeln;
+  readln(a);
+  one:=a mod 10;
+  a:=a div 10;
+  dec:=a mod 10;
+  a:=a div 10;
+  writeln(dec);
+  writeln(one);
+  end.
--- a/PascalABCnet/div
+++ b/PascalABCnet/div
@@ -0,0 +1,15 @@
+var a,dec,hun,one:integer;
+ begin
+  writeLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
+  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.
--- a/PascalABCnet/div
+++ b/PascalABCnet/div
@@ -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.
--- a/PascalABCnet/procedure&function/процедуры.pas
+++ b/PascalABCnet/procedure&function/процедуры.pas
@@ -0,0 +1,18 @@
+program procedura;
+
+ var c:char;
+
+//---------------------------------------------------
+ procedure zv; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+  var i:integer; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+   begin
+    WriteLn('*******************************'); // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+   end;
+//---------------------------------------------------
+
+ begin
+  c:='0';
+  WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>? Y/N');
+  ReadLn(c);
+  If c = 'Y' then zv; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> zv;
+ end.
--- a/PascalABCnet/procedure&function/процедуры2.pas
+++ 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); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+   begin       // <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+  //<2F><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> s, <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
+    s:=a+b;   //<-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
+              // <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+    WriteLn(a,' ',b);
+   end;       
+
+//------------------------------------------------ 
+
+ begin
+  r:=random(5000000);
+  r1:=random(5000000); // <20><><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+  WriteLn(r,' ',r1);
+  zv(r,r1,s2);
+  WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> = ',s2);
+ end.
+ 
--- a/PascalABCnet/procedure&function/функции.pas
+++ 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.
+ 
--- a/PascalABCnet/while/While_task1.pas
+++ 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.
--- a/PascalABCnet/while/While_task3.pas
+++ b/PascalABCnet/while/While_task3.pas
@@ -0,0 +1,13 @@
+Program While_Task3;
+ const n=5;
+ var a:integer;
+  begin
+   WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD> 5');
+   ReadLn(a);
+   While a<>n do
+   begin
+   WriteLn ('<27><> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>');
+   ReadLn(a);
+   end;
+   WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+  end.
--- a/PascalABCnet/while/While_task7.pas
+++ 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.
--- a/PascalABCnet/while/While_task8.pas
+++ 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.
--- a/PascalABCnet/while/while2.pas
+++ 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.
--- a/PascalABCnet/записи/записи.pas
+++ b/PascalABCnet/записи/записи.pas
@@ -0,0 +1,38 @@
+program zap;
+
+ type stud = record // record - <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+  name : string;
+  year : record // <20> record`e record <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> :, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> =
+      D : 1..31;
+      M : string;
+      Y : integer;
+         end;
+ end;
+ var a :stud; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> a = <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> stud 
+  
+  begin
+   WriteLn('<27><><EFBFBD>');
+   ReadLn(a.name);
+   WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD>');
+   with a.year do begin // with <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+   ReadLn(D);
+   ReadLn(M);
+   ReadLn(Y);
+   end;
+   Case a.year.M of //<2F><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> a <20><><EFBFBD><EFBFBD><EFBFBD> <20><> - <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+    '1a' : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
+    '2a'  : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
+    '3a' : a.year.M:='<27><><EFBFBD><EFBFBD>';
+    '4a' : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
+    '5a' : a.year.M:='<27><><EFBFBD>';
+    '6a' : a.year.M:='<27><><EFBFBD><EFBFBD>';
+    '7a' : a.year.M:='<27><><EFBFBD><EFBFBD>';
+    '8a' : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
+    '9a' : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
+    '10' : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
+    '11' : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
+    '12' : a.year.M:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
+   end;
+   WriteLn(a.name);
+   WriteLn(a.year.D,' ',a.year.M,' ',a.year.Y);
+  end.
--- a/PascalABCnet/массивы/бред.pas
+++ b/PascalABCnet/массивы/бред.pas
@@ -0,0 +1,13 @@
+program summof30;
+ const n=30;
+ type My=array [1..30] of integer; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> 30 <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
+ var a: my;
+     s,i:integer;
+   begin
+     WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD> ',n,' <20><><EFBFBD><EFBFBD><EFBFBD>'); 
+     for i:=1 to n do ReadLn(a[i]);//<2F><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [i], <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
+     s:=0;
+     for i:=1 to n do s:=s+a[i]; //<2F><><EFBFBD> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> [i], <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+     WriteLn(s);
+   end.
+ 
--- a/PascalABCnet/массивы/массив.pas
+++ b/PascalABCnet/массивы/массив.pas
@@ -0,0 +1,8 @@
+program idea;
+ var m:array [1..10] of integer; // <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> 10 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (!<21><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> 1 - 10!)
+     i:integer;
+  begin
+   WriteLn(m); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> 10 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
+   m[2]:=2;    //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [2] <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> 2 
+   WriteLn(m); // <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> 2
+  end.
--- a/PascalABCnet/массивы/сравнение
+++ b/PascalABCnet/массивы/сравнение
@@ -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.
--- a/PascalABCnet/множества/множества.pas
+++ 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.
--- a/PascalABCnet/остальное/randomiser.pas
+++ b/PascalABCnet/остальное/randomiser.pas
@@ -0,0 +1,25 @@
+program ranodmizer;
+ Uses crt;
+ var y,x,i:integer;
+ const N=5;
+  begin
+   i:=1; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+   y:= random (10); //<2F><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+   //writeln (y);
+   WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
+   ReadLn(x); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+   While ((x<>y)and(i<N+1)) do //<2F><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+  begin
+   {
+   if x>y then writeln ('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   if x<y then writeln ('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   }
+   writeLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>');
+   ReadLn(x);
+   inc(i); //<2F><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,while <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> begin
+  end;
+   if(x=y)then writeLn ('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   if not (x=y) then writeln ('<27><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+   readkey;
+  end.
+  
--- a/PascalABCnet/остальное/Для
+++ b/PascalABCnet/остальное/Для
@@ -0,0 +1,65 @@
+uses crt;
+var w,a,s,d,q,e,r,t:integer;
+n:byte;
+label l1;
+begin
+ l1:
+ WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>');
+ ReadLn(w);
+ if w <> 536985 then WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ if w <> 536985 then goto l1;
+ WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> A <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1');
+ ReadLn(n);
+ Case n of 
+ 1..5,7..26:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ 6: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
+ end;
+ WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 2 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ ReadLn(w);
+  Case w of 
+ 2..9:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ 1: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
+ end;
+ WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ ReadLn(a);
+ Case a of 
+ 1..5,7..26:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ 6: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
+ end;
+  WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 4 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ ReadLn(s);
+  Case s of 
+ 2..9:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ 1: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
+ end;
+  WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ ReadLn(r);
+ Case r of 
+ 1..5,7..26:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ 6: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
+ end;
+  WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 6 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ ReadLn(t);
+  Case t of 
+ 1,3..9:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ 2: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
+ end;
+   WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ ReadLn(e);
+ Case e of 
+ 1..5,7..26:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ 6: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
+ end;
+  WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 6 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ ReadLn(q);
+  Case q of 
+ 1,3..9:WriteLn(' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
+ 2: WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD>');
+ end;
+ Readkey;
+end.
--- a/PascalABCnet/остальное/Счетчик.exe
+++ b/PascalABCnet/остальное/Счетчик.exe
--- a/PascalABCnet/остальное/Счетчик.pas
+++ 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.
--- a/PascalABCnet/параметр
+++ b/PascalABCnet/параметр
@@ -0,0 +1,6 @@
+program for1;
+var i,k,n:integer;
+ begin
+  Read(k,n);
+  For i:=1 to n do WriteLn(k);
+ end.
--- a/PascalABCnet/параметр
+++ b/PascalABCnet/параметр
@@ -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.
--- a/PascalABCnet/параметр
+++ b/PascalABCnet/параметр
@@ -0,0 +1,6 @@
+program for3;
+var k,n,i:integer;
+ begin
+  Read(k,n);
+  For i:=k to n do WriteLn(k);
+ end.
--- a/PascalABCnet/параметр
+++ b/PascalABCnet/параметр
@@ -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.
--- a/PascalABCnet/параметр
+++ b/PascalABCnet/параметр
@@ -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.
--- a/1(ознакомление)/РЕШАЕМ
+++ b/1(ознакомление)/РЕШАЕМ
@@ -0,0 +1,11 @@
+Program programma_kotoraia_smogla;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
+ Var x,y,z,a,b,c: Integer;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><> <20><><EFBFBD>
+  Begin
+   WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> 5 <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+   ReadLn(x,y,z,a,b);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
+   c:=x-y+z*(a+b);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "c"
+   WriteLn(c);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+   {
+   <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> ctrl+ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+   }
+  End.