C:
(*a/* ){\output={\setbox0=\box255}\eject\shipout\hbox{\TeX}\end}(PostScript) 
/Times-Roman 40 selectfont 100 400 moveto show showpage<~%*/);int main()/*~>
( */{/*})<~*/printf("C\n");return 0;/*~>%(*)begin writeln('pascal');end.{*/}

Pascal:
(*a/* ){\output={\setbox0=\box255}\eject\shipout\hbox{\TeX}\end}(PostScript) 
/Times-Roman 40 selectfont 100 400 moveto show showpage<~%*/);int main()/*~>
( */{/*})<~*/printf("C\n");return 0;/*~>%(*)begin writeln('pascal');end.{*/}

PostScript:
(*a/* ){\output={\setbox0=\box255}\eject\shipout\hbox{\TeX}\end}(PostScript)
/Times-Roman 40 selectfont 100 400 moveto show showpage<~%*/);int main()/*~>
( */{/*})<~*/printf("C\n");return 0;/*~>%(*)begin writeln('pascal');end.{*/}

TeX:
(*a/* ){\output={\setbox0=\box255}\eject\shipout\hbox{\TeX}\end}(PostScript)
/Times-Roman 40 selectfont 100 400 moveto show showpage<~%*/);int main()/*~>
( */{/*})<~*/printf("C\n");return 0;/*~>%(*)begin writeln('pascal');end.{*/}