Даны переменные A,B,C,D найти MAX и MIN В виде алгоритма

var   a, b, c, d, max, min: integer; begin   Write('Введите через пробел 4 целых числа->');   Readln(a, b, c, d);   max := a;   min := a;   if b > max then max := b;   if c > max then max := c;   if d > max then max := d;   if b < min then min := b;   if c < min then min := c;   if d < min then min := d;   Writeln('MAX=', max, ', MIN=', min) end. Тестовое решение: Введите через пробел 4 целых числа->5 3 -2 4 MAX=5, MIN=-2