Нужно написать линейную программу перевода четырехзначного двоичного числа в десятичную систему счисления.

Var s : String;
Begin
  Repeat
    Readln(s);
  Until Length(s)=4;
 Writeln((Ord(s[1])-Ord('0'))*8+(Ord(s[2])-Ord('0'))*4+(Ord(s[3])-Ord('0'))*2+(Ord(s[4])-Ord('0')));
end.