Алгоритм через паскаль Найти максимальное и минимальное значения из трех различных вещественных чисел.

Program zadacha;var a, b, c, min, max: real;beginwrite(\'Введите 3 числа для сравнения (через пробел) : \');read (a, b, c);min := a;max := a;if b > max then max := b;if b < min then min := b;if c > max then max := c;if c < min then min := c;writeln(\'Максимальное число : \',max);writeln(\'Минимальное число : \',min);readln;end.Программа работает, проверенно в PascalABC