uses crt;
var a, b, c, min, max : integer;
begin
clrscr;
write('Nhap 3 so a, b, c : '); readln(a, b, c);
max := a; min := a;
if b > max then max := b;
if c > max then max := c;
if b < min then min := b;
if c < min then min := c;
writeln('Max = ', max);
writeln('Min = ', min);
readln
end.