Информатика

Станимир

12 ноября, 08:39

Что делать?

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.