A little attempt with pascal