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

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.