Если не ошибаюсь, 255, т.к. название - строковый тип
Var
A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn(A div 1000,' ',(A div 100) mod 10,' ',(A div 10) mod 10,' ',A mod 10);
End.
<span>Program Zerno;
Var
s,k:real;
i:byte;
Const
n=64;
Begin
s:=1;
for i:=1 to n-1 do
Begin
k:=exp(i*ln(2));
s:=s+k;
End;
Writeln('Количество зёрен: ',s,' штук');
Readln;
End.</span>
10111(2) = 23(10)
111101(2) = 61(10)
1101100(2) = 108(10)
54135256474
22561313165461313232333333 вот ответ