Даны три числа. Вывести сначала наименьшее затем наибольшее из данных чисел. Язык: паскаль

Предыдущий
вопрос Следующий
вопрос

program MinMaxNumbers;
var
a, b, c: integer;
begin
writeln('Введите три числа:');
readln(a, b, c);

// Находим наименьшее число
if (a < b) and (a < c) then
writeln('Наименьшее число:', a)
else if b < c then
writeln('Наименьшее число:', b)
else
writeln('Наименьшее число:', c);

// Находим наибольшее число
if (a > b) and (a > c) then
writeln('Наибольшее число:', a)
else if b > c then
writeln('Наибольшее число:', b)
else
writeln('Наибольшее число:', c);
end.