Что делать? 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.