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

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.