Даны переменные 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