Ввести 4 числа и найти из них минимальное, максимальное и сумму(паскаль) ! 25б за лучший ответ

Держи

var x1,x2,x3,x4,sum,max,min:integer;

Begin  

read(x1,x2,x3,x4);

sum:=x1+x2+x3+x4;  

if x1>x2 then max:=x1 else max:=x2;

if max<x3 then max:=x3;

if max<x4 then max:=x4;

if x1<x2 then min:=x1 else min:=x2;

if min>x3 then min:=x3;

if min>x4 then min:=x4;

writeln(max);

writeln(min);

writeln(sum);

End.

через массив

var a: array[1..4]of integer;

sum,i,max,min:integer;

Begin

min:=2147483647;  (если в задачи есть предел возможного ввода числа ,то нужно поменять min на предел числа+1)

max:=0;

sum:=0;

For i:=1 to 4 do

 Begin

   read (a[i]);

   sum:=sum+a[i];

  End;

For i:=1 to 4 do

if a[i]>max then  max:=a[i];

For i:=1 to 4 do

if a[i]<=min then  min:=a[i];  

writeln(max);

writeln(min);

writeln(sum);

End.

program chisla;

var  

 a, b, c, d, min, max, max1, max2, min1, min2, s : integer;

begin

 writeln('Введите 4 числа');

 read(a, b, c, d);

 max:=0;

 min:=0;

 s:=a+b+c+d;

 if a>b then  

   begin

     max:=a;

     min:=b;

   end

 else

   begin

     min:=a;

     max:=b;

   end;

 if c>d then

   begin

     max1:=c;

     min1:=d;

   end

 else

   begin

     max1:=d;

     min1:=c;

   end;

 if max>max1 then

   max2:=max

 else

   max2:=max1;

 if min>min1 then

   min2:=min1

 else

   min2:=min;

writeln('Наибольшее число: ',max2);

writeln('Наименьшее число: ',min2);

writeln('Сумма чисел: ',s);

end.