Написать ПРОЦЕДУРУ перевода целого числа из десятичной системы в двоичную.…

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.