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

uses crt;
var dva,stepen,des,ost,dec: integer;
    dvo: string; 
    
//функция перевода из двоичной в десятичную
 function bindec:integer; 
  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;
   bindec:=des;
 end;
 
  //функция перевода из десятичной в двоичную
 function decbin:string; 
  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;
  decbin:=dvo;
 end;
 
begin

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