Все лабораторные работы по паскалю / 7 лаб. Подпрограммы / procedure / Program5

uses crt;
var dva,stepen,des,ost,dec: integer;
    dvo: string; 
    
//процедура перевода из двоичной в десятичную
 procedure bindec;
  begin
   stepen:=1;
    while dva>0 do begin
     ost:=dva mod 10;
      ost:=ost*stepen;
      stepen:=stepen*2;
      des:=des+ost;
     dva:=dva div 10;
   end;
 end;
 
 //процедура перевода из десятичной в двоичную
 procedure decbin;
  begin
     while dec>0 do begin 
      if dec mod 2=0 then 
        dvo:=dvo + '0' 
        else begin 
         dvo:=dvo+'1'; 
         dec:=dec-1; 
        end; 
     dec:=dec div 2; 
  end; 
 end;
 
begin

 write('Введите двоичное число: ');
 readln(dva);
  bindec;
 writeln('Десятичное число: ',des);
 
 write('Введите десятичное число: ');
 readln(dec);
  decbin;
 writeln('Двоичное число: ',dvo);
end.