Contoh Program Pascal Perulangan While Do vitalcha