added pascal progs
added pascal progs