Написать ПРОЦЕДУРУ перевода целого числа из десятичной системы в двоичную. ПАСКАЛЬ.ПРОЦЕДУРЫ И ФУНКЦИИ

program perevod;  Uses crt; var z:integer; procedure ToBin(z:integer); begin if (z>1) then ToBin(z div 2); write(z mod 2:1); end; begin clrscr;   write('Введи число:'); readln(z);   writeln('Число в десятичной системе:',z:6);   write('Число в двоичной системе: ');    ToBin(z); readkey; end.

Не уверена, что поняла вопрос правильно, но всё-таки: 1. Разделить десятичное число на 2, получится частное и остаток. 2. Разделить частное на 2, получится частное и остаток. 3. Продолжать деление частных, пока последнее частное не будет меньше 2. 4. Последнее частное и остатки записать в обратном порядке. Например, из 27 в десятичной = 11011 в двоичной.