procedure & function

program tugas_kelompok_ke3;

uses crt;

procedure maksimum_minimum(a:integer;b:integer;c:integer;max:integer;min:integer);

begin

     if a>b then max:=a else max:=b;

           if c>max then max:=c;

              writeln('Nilai Maksimum Matematika:',max);

     if a<b then min:=a else min:=b;

           if c<min then min:=c;

              writeln('Nilai Minimum Matematika:',min);

     end;

function rata_rata(a:integer;b:integer;c:integer):real;

begin

     rata_rata:=(a+b+c)/3;

     end;

var

   a,b,c,max,min:integer;

   rata:real;

begin

     clrscr;

     writeln('Masukkan nilai matematika siswa ke-1:');

     readln(a);

     writeln('Masukkan nilai matematika siswa ke-2:');

     readln(b);

     writeln('Masukkan nilai matematika siswa ke-3:');

     readln(c);

     maksimum_minimum(a,b,c,max,min);

     rata:=rata_rata(a,b,c);

     writeln('Nilai Rata-rata Matematika:',rata);

     readln;

end.