Create task 2.pas

write 0 to 12 using while
pascal language