program Main var x as byte var w as word var i as integer var c as char var ok as boolean i = w w = i x = w x = i w = ok ok = x x = c c = x c = 65 x = 256 w = -1 i = 32768 i = -32769 w = "text" x = 200 + 100 w = 300 * 300 w = 1 / 0 i = 0 - 32769 w = 1 - 2 end program