Помогите с решением задач

[Evgenii_95]

1)даны действительные числа a b c d получить х=max(a,b) y=max(c,d) z=max(x,y) оформить функцией
2)Составить программу,которая число,заданное в десятичной системе счисления переведет в а)двоичную систему счисления б)восьмеричную.
перевод в каждую систему оформить отдельной функцией

первую решил помогите со второй

var a,b,c,d:integer;
x,y,z:integer;
function max(w,q:integer):integer;
begin
max:=w;
if w<q then max:=q;
end;
begin
readln(a,b);
x:=max(a,b);
readln(c,d);
y:=max(c,d);
z:=max(x,y);
writeln(x,' ',y,' ',z);
end.

[Stilet]

Рекомендую к рассмотрению: http://www.programmersforum.ru/showp...4&postcount=36