[ Объект ] равно: [ Объект ]

дать x := Объект новый.
 дать y := Объект новый.
 дать z := x.
 Stdout написать: ( x равно: y ), стоп.
 Stdout написать: ( x равно: z ), стоп.
 Stdout написать: ( x = y ), стоп.
 Stdout написать: ( x = z ), стоп.
 Stdout написать: ( x ≠ y ), стоп.
 Stdout написать: ( x ≠ z ), стоп.

Ложь
Истина
Ложь
Истина
Истина
Ложь