Паскаль.Число в двоичной системе счисления, введенное пользователем программы, преобразовать в десятичное число. Результат вывести на экран.

var s :string;i, j, dva, otv :integer;

beginwrite (‘vvedite dvoichnoe chislo = ’);readln (s);for i := 1 to length(s) doif strtoint (s[i]) > 0 thenbegindva:= 1;for j:= 1 to length(s)-i dodva:=dva*2;otv:=otv+dva;end;writeln(otv);readln;end.