Вводятся A, B, C, D. Найти среднее арифметическое максимального и минимального. Pascal

PascalABC.NET 3.6

begin

 var a, b, c, d: integer;

 Read(a, b, c, d);

 Print((Max(a, b, c, d) + Min(a, b, c, d)) / 2)

end.

var

 a, n, max, min, i, sum: integer;

begin

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

 Readln(a);

 Max := a;

 Min := a;

 for i := 1 to 3 do

 begin

   Read(a);

   sum += a;

   if a > Max then Max := a;

   if a < Min then Min := a;

 end;

 Writeln('Максимальное: ', Max);

 Writeln('Минимальное: ', Min);

 Writeln('Среднее: ', sum / 4);

end.

Тестовое решение

Введите 4 числа

243

20

10

231

Максимальное: 243

Минимальное: 10

Среднее: 65.25