Что значит из строки? Формулируйте лучше. Можно делать через обычный массив, примерно так
var
Var
n: integer;
a,b: integer;
begin
Readln(n);
a:= n mod 10;
b:=n div 10;
if a>4 then inc(b);
b:=b*10;
Writeln(b)
end.
X^2+1*X^0=26
X^2=25
X=5
основание 5
1 - А (если 1 символ занимает один байт, то 60*1 = 60)
2 - Б
3 - В (2^8 = 256)
4 - В
5 - А