15 Описание подпрограммы: пример procedure err(c:byte; s:string); var zz: byte; begin if c=0 then writeln(s) else writeln('Ошибка!') end; procedure err(c:byte; s:string); var zz: byte; begin if c=0 then writeln(s) else writeln('Ошибка!') end;
{}