Contoh program untuk mencari nilai rata-rata, tertinggi dan terendah uses wincrt; var a, siswa : integer; nilai, total, tinggi, rendah, rata : real; begin total := 0; write (‘jumlah siswa : ‘); readln (siswa); writeln; for a := 1 to siswa do begin write (‘nilai siswa ke ‘,a,’ : ‘); readln (nilai); total := total…