From f0f0193c5cf3bc2a849a588d93ec07cd70514f74 Mon Sep 17 00:00:00 2001
From: vlad <viad.2000@yandex.ru>
Date: Thu, 18 May 2017 13:35:09 +0300
Subject: [PATCH] =?UTF-8?q?=D0=9E=D0=B1=D0=BD=D0=BE=D0=B2=D0=B8=D1=82?=
 =?UTF-8?q?=D1=8C=20'bin.pas'?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 bin.pas | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/bin.pas b/bin.pas
index 2302fab..5949339 100644
--- a/bin.pas
+++ b/bin.pas
@@ -5,8 +5,8 @@ begin
   Write(N mod 2);
 end;
 
-function step(x:integer):longint;
- var i:integer; st:longint;
+function step(x:integer):integer;
+ var i:integer; st:integer;
  begin
  if x=0 then step:=1 else begin
       st:=1;
@@ -15,17 +15,16 @@ function step(x:integer):longint;
       step:=st;
       end; end;
  end;
-var k,a,b,d,s:longint;
-
+var k,a,b,d,s:integer;
 
 begin
 s:=0;
 k:=0;
-writeln('выберите режим 1:Bintodec 2:Dectobin'k;
+writeln('Выберите режим 1:bin2dec 2:dec2bin');
 readln(a);
 if a=1 then begin
+writeln('Выбран режим bin2dec. Введите число');
 readln(a);
-
 repeat
       b:=a mod 10;
       d:=a div 10;
@@ -34,8 +33,9 @@ repeat
       a:=d;
 until d=0;
 writeln(s);
-end; else begin 
+end else begin 
+writeln('Выбран режим dec2bin. Введите число');
 readln(a);
 dec2bin(a);
 end;
-end.
\ No newline at end of file
+end.