awk ' {gsub(/writeln/,"printf");gsub(/(\047\047)/,"\"\\n\"");gsub(/to/,"to %d ");gsub(/:=/,"=");gsub(/end;/,"");gsub(/end./,"");gsub(/do /,"{");gsub(/then/,"");gsub(/\047/,"\"");gsub(/random\(20\)/,"rand()%20");gsub(/var/,"int");gsub(/randomize/,"srand(time(NULL))");gsub(/: integer/,"");gsub(/begin/,"");print}' pascal.pas>output2.txt

awk 'BEGIN{print "#include <stdio.h>\n#include <time.h>\n#include <stdlib.h>\nint main(){"}{print} END{print "};};"}' output2.txt>output3.c

awk '/./' output3.c>final.c