Написать программу в АБС паскале: написать программу и процедуру…

Program Perevod; Uses crt; var z: integer; procedure ToOct (z: integer); begin if (z>1) then ToOct (z div 8); write (z mod 8:1); end; begin clrscr; write ('Введите число: '); readln (z); writeln ('В Десятичной: ',z: 6); write ('В восьмеричной: '); ToOct (z); readkey; end.