Паскаль! Система счисления! Перевод чисел

[Darf]

здравствуйте! нужна универсальная программа по переводу чисел из 16-й системы счисления в 8 ную!если задаётся неверное число должно выдавать ошибку!
P.s в паскале не шарю! вообще! заранее огромное спасибо! и не надо говорить пользуйся поисковиком! смотрел! не нашёл! и в форуме не нашёл! если вы нашли отправьте ссылку! Огромное спасибо!

[Serge_Bliznykov]

внизу посмотрите похожие темы!
Хотя бы эту:
"Перевод целых чисел из одной системы счисления в другую"

[ОДИНОЧЕСТВО В СЕТИ]

переводи из 16 в 2 а потом из 2 в 8! в Википедии примеры есть!

[Darf]

половину из этих тем я и создал!

[Darf]

Сообщение от Serge_Bliznykov

внизу посмотрите похожие темы!
Хотя бы эту:
"Перевод целых чисел из одной системы счисления в другую"

половину из этих тем я и создал!

[Darf]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

переводи из 16 в 2 а потом из 2 в 8! в Википедии примеры есть!

я вроде пояснил что в паскале знаю столько, сколько 3 летний ребёнок например о СССр! я вообще незнаю паскаль!,вот и прошу помощи!

[Darf]

Есть у кого готовая? просто скиньте плз!

[ОДИНОЧЕСТВО В СЕТИ]

// модераторы удалите пост пожалуйста!

[ОДИНОЧЕСТВО В СЕТИ]

program se;// перевод из 16 в 2
var six:string;
    bin:string;
	eight:string;
    i:integer;
	y:boolean;
begin
bin:='';
writeln('input number:');
readln(six);
y:=true;
for i:=1 to length(six) do
	if  not (six[i] in ['1'..'9','0','A'..'F','a'..'f']) then y:= false;
if not y then writeln('data is incorrect!')
else  begin
for i:=1 to length(six) do
case six[i] of
'0':bin:=bin+'0000';
'1':bin:=bin+'0001';
'2':bin:=bin+'0010';
'3':bin:=bin+'0011';
'4':bin:=bin+'0100';
'5':bin:=bin+'0101';
'6':bin:=bin+'0110';
'7':bin:=bin+'0111';
'8':bin:=bin+'1000';
'9':bin:=bin+'1001';
'a':bin:=bin+'1010';
'b':bin:=bin+'1011';
'c':bin:=bin+'1100';
'd':bin:=bin+'1101';
'e':bin:=bin+'1110';
'f':bin:=bin+'1111';
'A':bin:=bin+'1010';
'B':bin:=bin+'1011';
'C':bin:=bin+'1100';
'D':bin:=bin+'1101';
'E':bin:=bin+'1110';
'F':bin:=bin+'1111';
end;

writeln('bin:',bin)
end;
readln;
end.

[Levsha100]

<off param="Сори за флуд">
Darf,ОДИНОЧЕСТВО В СЕТИ научитесь, пожалуйста, пользоваться ПРАВКОЙ!
</off>