Elena_function2

{Дано число в шестнадцатеричной  системе счисления.
Проверить правильность ввода этого числа.
При правильном вводе перевести число в десятичную систему счисления.}
program Gde_to_tam_daleko_est_ty;
var d,s,i,j,c,f:integer; h:string; z:boolean;

function Hex1(he:string):boolean;
begin
    s:=0;
    for i:=1 to length(he) do
        if ((ord(he[i])>47) and (ord(he[i])<58))
        or ((ord(he[i])>64) and (ord(he[i])<71))
        or ((ord(he[i])>96) and (ord(he[i])<103)) then
            s:=s+1;
    if s=length(he) then Hex1:=true
    else Hex1:=false;
end;

function pow(n:integer):integer;
begin
    s:=1;
    if n=0 then pow:=1
    else
    for j:=1 to n do
        s:=s*16;
    pow:=s;

end;

begin
    write('Vvedi chislo: ');
    readLN(h);
    c:=0;
    if Hex1(h) then
        begin
        for i:=1 to length(h) do
            begin
            f:=pow(length(h)-i);
            if ((ord(h[i])>47) and (ord(h[i])<58)) then
                c:=(ord(h[i])-48)*f+c;
            if ((ord(h[i])>64) and (ord(h[i])<71)) then
                c:=(ord(h[i])-55)*f+c;
            if ((ord(h[i])>96) and (ord(h[i])<103)) then
                c:=(ord(h[i])-87)*f+c;
            end;
        writeLN(h,'(16) =',c,'(10)');
        end
    else writeLN('Ne pravelnuy vvod! =\');
    read;
End.