برنامه ای که max و min بین سه عدد را پیدا می کند . ( با آرایه )

var  b:array[1..3]of integer;

     i,max,min:integer;

begin

  clrscr;

  write('  enter first number ==> ');

  readln(b[1]);

  write('  enter second number ==> ');

  readln(b[2]);

  write('  enter third number ==> ');

  readln(b[3]);

  if (b[1]> b[2]) and (b[1]>b[3]) then max:=b[1]

else if (b[2]> b[1]) and (b[2]>b[3]) then max:=b[2]

else

   max:=b[3];

  if (b[1]< b[2]) and (b[1]<b[3]) then min:=b[1] else

  if (b[2]< b[1]) and (b[2]<b[3]) then min:=b[2] else

  min:=b[3];

  writeln('  max = ',max);

  writeln('  min = ',min);

end.