
Versi
Pascal yang saya pakai adalah Pascal versi Windows, tepatnya Pascal 3.0. Jika anda menggunakan Pascal for DOS / Turbo Pascal,
silahkan ganti statement Uses WinCrt dengan Uses Crt dan diawal
program utama ditambahkan dengan ClrScr.
Ketentuan :
Program
untuk mendifinisikan array buah berisi 3 deret dengan type string
Menginisialisasi isi inputan buah
dari user
Seluruh
isi buah berurutan mulai dari deret 1 sampai dengan 3