Bài 3. Tìm giá trị min, max Cho 4 số nguyên a, b, c, d. Em hãy lập trình tìm giá trị nhỏ nhất và lớn nhất trong 4 số a, b, c, d. Input: 4 số nguyên a, b, c, d Output: hai số nguyên là giá trị nhỏ nhất và lớn nhất Ví dụ: INPUT OUTPUT 4 3 7 2 2 7 pascal

uses crt;
var a,i,max,min:integer;
begin
clrscr;
max:=-32768;
min:=32767;
for i:=1 to 4 do
begin
 read(a);
 if a<min then min:=a;
 if a>max then max:=a;
end;
write(min,' ',max);
readln;
readln;
end.

program find_min_max;
var
  a, b, c, d, min, max: integer;
begin
  write('Enter four integers: ');
  readln(a, b, c, d);

  min := a;
  max := a;

  if b < min then
    min := b;
  if c < min then
    min := c;
  if d < min then
    min := d;

  if b > max then
    max := b;
  if c > max then
    max := c;
  if d > max then
    max := d;

  writeln('The minimum value is ', min);
  writeln('The maximum value is ', max);
end.