Rata-rat,Max,Min

uses wincrt;
var
a,b,c,max,min:integer;
rata:real;
begin
write('Nilai 1 = '); readln(a);
write('Nilai 2 = '); readln(b);
write('Nilai 3 = '); readln(c);
rata:=(a+b+c)/3;
if a>b then
if a begin
max:=c;
min:=b;
end
else
begin
max:=a;
min:=c;
end
else
if b>c then
begin
max:=b;
min:=c;
end
else
begin
max:=c;
min:=a;
end;
writeln;
writeln('Rata-rata = ',rata:3:2);
writeln('Bilangan terbesar = ',max);
writeln('Bilangan terkecil = ',min);
end.