[Ghost]

не все в этом шарят...

Тады ловите код:


uses
crt;

const
cstr = '0123456789ABCDEF';

type
systypes = 2..16;

var
in_var, out_var: string;
in_sys, out_sys: systypes;

function str2dec(s: string; sys: integer): integer;
var
p, i, k: integer;
begin
p := 0;
k := 1;
for i := Length(s) downto 1 do
begin
p := p + k * pred(pos(s[i], cstr));
k := k * sys;
end;
str2dec := p;
end;

function dec2str(i: integer; sys: integer): string;
var
p: string;
k: integer;
begin
p := '';
repeat
k := succ(i mod sys);
i := i div sys;
p := copy(cstr, k, 1) + p;
until i = 0;
dec2str := p;
end;

begin
clrscr;
readln(in_var);
readln(in_sys);
readln(out_sys);
out_var := dec2str(str2dec(in_var, in_sys), out_sys);
writeln(out_var);
readkey;
end.