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

Program zadacha;

var a, b, c, min, max: real;

begin

write ('Введите 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