Вот так гораздо проще.
var s:string;
begin
readln(s);
writeln(length(s));
end.
<span>Переводы
б) 057222
а) 101111010010010
в)OFA5 и 1210 - 04BA
</span>
5! записывается как 120 (надо вычислять)
LXIV (римское) записывается как 64
11/4 записывается как 11/4 (деление), либо как результат 2.75
-1/6 записывается как -1/6 (деление), либо как результат с приемлемой точностью (-0.666...6)
√2 записывается как функция Sqrt(2), либо как результат с приемлемой точностью (1.4142135623730950488016887242...)
5·10⁶ записывается как 5e6
10⁶ записывается как 1e6
1/100000 записывается как 0.000001 или 1e-5
Program zz;
var a:integer;
begin
Writeln('Введите число:');
readln(a);
write('Число в обратном порядке:');
while(a<>0) do begin
write(a mod 10);
a:=a div 10;
end;
end.