ClubPoker-DNA

Mencari nilai rata-rata,nilai max,nilai min jika diinput nilai1,nilai2,nilai3

uses wincrt;

var

n1,n2,n3:integer;

r:real;

begin

write('Masukkan nilai1:');readln(n1);

write('Masukkan nilai2:');readln(n2);

write('Masukkan nilai3:');readln(n3);

r:=(n1+n2+n3)/3;

writeln('Rata-rat= ',r:6:2);

if n1>n2 then

  begin

  if n1>n3 then writeln('Nilai max: ',n1) else writeln('Nilai max: ',n3);

  end 

else

if n2>n3 then writeln('Nilai max: ',n2) else writeln('Nilai max: ',n3);

if n1

  begin

  if n1

  end 

else

if n2

end.