program ideone;
function PrepareNumber(ANumber: AnsiString): AnsiString;
begin
PrepareNumber := Copy(ANumber, 1, Length(ANumber) - 1 + Byte(ANumber[Length(ANumber)] <> '%'));
end;
begin
WriteLn('Number: ', PrepareNumber('14,50'));
WriteLn('Number: ', PrepareNumber('14,50%'));
end.
cHJvZ3JhbSBpZGVvbmU7CgogIGZ1bmN0aW9uIFByZXBhcmVOdW1iZXIoQU51bWJlcjogQW5zaVN0cmluZyk6IEFuc2lTdHJpbmc7CiAgYmVnaW4KICAgIFByZXBhcmVOdW1iZXIgOj0gQ29weShBTnVtYmVyLCAxLCBMZW5ndGgoQU51bWJlcikgLSAxICsgQnl0ZShBTnVtYmVyW0xlbmd0aChBTnVtYmVyKV0gPD4gJyUnKSk7CiAgZW5kOwoKYmVnaW4KICBXcml0ZUxuKCdOdW1iZXI6ICcsIFByZXBhcmVOdW1iZXIoJzE0LDUwJykpOwogIFdyaXRlTG4oJ051bWJlcjogJywgUHJlcGFyZU51bWJlcignMTQsNTAlJykpOwplbmQu