Program Pascal if dan Case