Имена участников (разделяйте запятой).
program perevod; uses crt; var temp, dec, i: byte; bin, bin1: longint; begin clrscr; write ('Введите двоичное число: ); readln (bin);...
Назовите(маслечные,прядильные,кормовые- культуры