Система счисления.

uses Math;
const
        S = 8;
        P = 10;
        Q = 4;
        R = 7;
        Numb = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
 
function InP(V:String):Integer;
var
        d,i:integer;
begin
        d:=0;
        for i:=1 to length(v) do
                d:=d+(pos(v[i],Numb)-1)*trunc(power(S,length(v)-i));
        InP:=d;
end;
 
function FromPToQ(V,Q:integer):String;
var
        d:integer;
        l:string;
        t:string;
begin
        d:=v;
        l:='';
        while d>=q do
                begin
                        t:=numb[d mod q+1];
                        l:=t+l;
                        d:=d div q;
                end;
        l:=numb[d mod q+1]+l;
        fromPToQ:=l;
end;
 
var
        st:string;
        i:integer;
 
begin
        writeln('введите число с основанием',S);
        readln(st);
        for i:=1 to length(st) do if pos(st[i],Numb)>S then
        begin
                writeln('Некорректное число, не может быть символа ',st[i]);
                readln;
                halt;
        end;
 
        i:=InP(st);
        writeln('В десятичной - ',i);
        writeln('В системе с основанием ',Q,' - ',fromPtoQ(I,Q));
        writeln('В системе с основанием ',R,' - ',fromPtoQ(I,R));
        readln;
end.