a)
uses crt;
var a, b, c, m : integer;
begin
clrscr;
write('nhap ba so a, b, c : '); readln(a, b, c);
m := a;
if b > m then m := b;
if c > m then m := c;
write('so lon nhat : ', m);
readln
end.
b)
uses crt;
var b : array[1..3] of real;
i : byte; min, max : real;
begin
clrscr;
for i := 1 to 3 do
begin
write('nhap so thu ', i ,' : '); readln(b[i]);
end;
min := b[1]; max := b[2];
for i := 2 to 3 do
begin
if b[i] > max then max := b[i];
if b[i] < min then min := b[i];
end;
writeln('phan tu nho nhat : ', min);
writeln('phan tu lon nhat : ', max);
readln
end.