Что делать? Program n1; Type Test = class Private Var a:integer:= 10; Public Var b:integer:= 15; End; Begin Var cl:Test := new Test(); Writeln(cl.a); // должно не выполняться но паскалю пофиг Writeln(cl.b) // выпонится End.

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.