В алфавит языка Паскаль не входит пункт в) Русские строчные и прописные буквы.
GNU C++. Старался делать на макс быстродействие.
#include <iostream>
#include <string.h>
#include <cmath>
using namespace std;
int main()
{
char number[11];
cin.getline(number,11);
int res=0;
for(int i=strlen(number)-1, j=1; i >= 0; --i)
{
if(number[i]=='1') res+=j;
j*=2;
}
cout << "Result: " << res;
}
Смотрите решение с исправлением на прикреплённом файле