如何输入三个整数，将最大值放入MAX中，最小值放入MIN中

下面是源程序：

program ssy;
var
i,j,max,min,t:integer;
a:array[1..3] of integer;

begin
read(a[1],a[2],a[3]);//读入三个数存在数组a里
{将数组a中的元素从大到小排序}
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]<a[j] then begin t:=a[i];a[i]:=a[j];a[j]:=t;end;

max:=a[1];min:=a[3];//赋值
writeln('max=',max);
writeln('min=',min);
end.

以下推广到n个数
program ssy;
var
i,j,max,min,t:integer;
a:array[1..3] of integer;

begin
read(n);
for i:=1 to n do read(a[i]);//读入n个数存在数组a里
{将数组a中的元素从大到小排序}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then begin t:=a[i];a[i]:=a[j];a[j]:=t;end;

max:=a[1];min:=a[n];//赋值
writeln('max=',max);
writeln('min=',min);
end.

这其实就是一个选择排序。
希望对你有帮助

var
a,b,c,min,max:integer;
begin
readln(a,b,c);