uses wincrt;
var a,n : integer;
data, total, max, min, mean : real;
begin
total := 0;
write ('*****Banyaknya data***** : '); readln (n);
writeln;
for a := 1 to n do
begin
write ('####Data ke#### ',a,' : '); readln (data);
total := total + data;
if a = 1 then begin
max := data;
min := data;
end;
else begin
if data > max then max := data
else begin
if data < min then min := data; end; end; end; mean := total / n; writeln; writeln ('^^^Nilai terendah^^^ : ', min :1:2); writeln ('^^^Nilai tertinggi^^^ : ', max :1:2); writeln ('^^^Rata-rata^^^ : ', mean :1:2); end.