Составить блок-схему к программе 1 и к программе 2

var i, multiply,result:longint;
    digit:byte;
    fail:boolean;
begin
    writeln('Input binary number:');
        readln(i);
        multiply := 1;
        result:=0;
    fail:=false;
        repeat
        {Вычисление младшей значащей цифры}
                digit := i mod 10;
 
        if((digit <> 0) and (digit <> 1))then
        begin
            {Число не двоичное}
            writeln('Number is not binary');
            fail:=true;
            break;
        end;
 
        {Целочисленное деление на 2 сдвигом на 1 бит вправо}
                i := i shr 1;
 
        {Целочисленное деление на 5,
         чтобы вместе с предыдущей операцией получилось деление на 10}
        i := i div 5;
 
        {Вычисление результата результата}
        result:=result+digit*multiply;
 
        {Обновление разрядного множителя}
        multiply:=multiply*2;
        until i = 0;
    if (fail=false)then
    begin
        writeln('Decimal number:');
        writeln(result);
    end;
end.

type
    int=integer;
var
    result,k:longint;
    i:int;
    input:string;
begin
readln(input);
k:=1;
for i:=length(input) downto 1 do begin
    result:=result+k*(ord(input[i])-ord('0'));
    k:=k*2;
end;
writeln(result);
readln;
end.