клас ТестовийКлас
  а
  б = "10"
  г = 32
  д
кінець

якщо ТестовийКлас.ознаки не є Послідовність
  впасти
кінець
якщо ТестовийКлас.ознаки.розмір != 4
  впасти
кінець
якщо ТестовийКлас.ознаки[0] не є Клас.Ознака
  впасти
кінець
якщо ТестовийКлас.ознаки[0].назва != "а"
  впасти
кінець
якщо ТестовийКлас.ознаки[0].тип != недійсне
  впасти
кінець
якщо ТестовийКлас.ознаки[0].значення != недійсне
  впасти
кінець
якщо ТестовийКлас.ознаки[1] не є Клас.Ознака
  впасти
кінець
якщо ТестовийКлас.ознаки[1].назва != "б"
  впасти
кінець
якщо ТестовийКлас.ознаки[1].тип != недійсне
  впасти
кінець
якщо ТестовийКлас.ознаки[1].значення != "10"
  впасти
кінець
якщо ТестовийКлас.ознаки[2] не є Клас.Ознака
  впасти
кінець
якщо ТестовийКлас.ознаки[2].назва != "г"
  впасти
кінець
якщо ТестовийКлас.ознаки[2].тип != недійсне
  впасти
кінець
якщо ТестовийКлас.ознаки[2].значення != 32
  впасти
кінець
якщо ТестовийКлас.ознаки[3] не є Клас.Ознака
  впасти
кінець
якщо ТестовийКлас.ознаки[3].назва != "д"
  впасти
кінець
якщо ТестовийКлас.ознаки[3].тип != недійсне
  впасти
кінець
якщо ТестовийКлас.ознаки[3].значення != недійсне
  впасти
кінець

тк = ТестовийКлас()

якщо тк не є ТестовийКлас
  впасти
кінець
якщо тк.а != недійсне
  впасти
кінець
якщо тк.б != "10"
  впасти
кінець
якщо тк.г != 32
  впасти
кінець
якщо тк.д != недійсне
  впасти
кінець

тк1 = ТестовийКлас(
  1,
  "б",
  тк,
  дійсне
)
якщо тк1 не є ТестовийКлас
  впасти
кінець
якщо тк1.а != 1
  впасти
кінець
якщо тк1.б != "б"
  впасти
кінець
якщо тк1.г != тк
  впасти
кінець
якщо тк1.д != дійсне
  впасти
кінець

тк2 = ТестовийКлас(
  1,
  д=дійсне,
  б="б",
  г=тк1,
)
якщо тк2 не є ТестовийКлас
  впасти
кінець
якщо тк2.а != 1
  впасти
кінець
якщо тк2.б != "б"
  впасти
кінець
якщо тк2.г != тк1
  впасти
кінець
якщо тк2.д != дійсне
  впасти
кінець