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