program { int pascal, c = 0, basic=1; c := unix; read (pascal); }