Membuat program untuk mencari nilai tertinggi & terendah dengan pascal 

program CariNilaiTertinggiTerendah; var angka: array[1..10] of integer; i, max, min: integer; begin { Input 10 data angka } for i := 1 to 10 do begin write('Masukkan angka ke-', i, ': '); readln(angka[i]); end; { Inisialisasi nilai max dan min } max := angka[1]; min := angka[1]; { Mencari nilai tertinggi dan terendah } for i := 2 to 10 do begin if angka[i] > max then max := angka[i]; if angka[i] < min then min := angka[i]; end; { Menampilkan hasil } writeln('Nilai tertinggi: ', max); writeln('Nilai terendah: ', min); end.