1613 is a project mainly written in C++ and PASCAL, it's free.

Einführung in die imperative Programmierung (FU Hagen)