Program HOC24;
var min,max,a,b,c: word;
begin
write('Nhap so thu nhat: '); readln(a);
write('Nhap so thu hai: '); readln(b);
write('Nhap so thu ba: '); readln(c);
if a>b then max=a else max:=b;
if max>c then max:=c;
writeln('So lon nhat la: ',max);
if a<b then min=b else min:=a;
if min<c then min:=c;
writeln('So be nhat la: ',min);
Write('Tong 3 so do la: ',a+b+c);
readln
end.
Program HOC24;
var min,max,a,b,c: word;
begin
write('Nhap so thu nhat: '); readln(a);
write('Nhap so thu hai: '); readln(b);
write('Nhap so thu ba: '); readln(c);
if a>b then max=a else max:=b;
if max>c then max:=c;
writeln('So lon nhat la: ',max);
if a<b then min=b else min:=a;
if min<c then min:=c;
writeln('So be nhat la: ',min);
Write('Tong 3 so do la: ',a+b+c);
readln
end.