Найти наибольшее и наименьшее среди трех чисел - Free Pascal

Формулировка задачи:

Нужно все лишь найти наибольшее и наеменьшее: a, b, c. Пожалуста, кому не сложно, решите задачку, мне очень нужно! Задачу, где надо найти лишь наибольшее я написала, а вот где надо и то, и то найти, я затрудняюсь написать.....

Решение задачи: «Найти наибольшее и наименьшее среди трех чисел»

Листинг программы

uses crt;
var
a,b,c: real;
 
begin
   clrscr;
   writeln('Вводим числа:');
   writeln('A=');
     gotoxy(4,2);
   readln(a);
   writeln('B=');
     gotoxy(4,3);
   readln(b);
   writeln('C=');
     gotoxy(4,4);
   readln(c);
 
   {Находим наибольшее}
   if (a>b) and (a>c) then writeln ('А - наибольшее')
   else
    begin
      if b>c then  writeln ('B - набольшее')
      else writeln ('C - наибольшее');
    end;
 
   {Находим наименьшее}
   if (a<b) and (a<c) then writeln ('A -наименьшее')
   else
    begin
     if b<c then writeln ('B - наименьшее')
     else writeln ('С - наименьшее');
    end;
 readln;
end.

Объяснение кода листинга программы

Объявлены три переменные a, b, c типа real для хранения чисел.
Введен блок кода для получения значений этих переменных от пользователя с помощью функции readln.
Выводится сообщение с просьбой ввести числа.
С помощью функции gotoxy курсор перемещается в нужную позицию на экране.
Блок if-else используется для определения наибольшего числа.
Если a больше b и c, то выводится сообщение, что a — наибольшее число.
Если a больше b, но меньше c, то выводится сообщение, что b — наибольшее число.
Если a меньше b и c, то выводится сообщение, что a — наименьшее число.
Если b больше a и c, то выводится сообщение, что b — наименьшее число.
Если c больше a и b, то выводится сообщение, что c — наименьшее число.
Блок if-else используется для определения наименьшего числа.
Выводится сообщение с просьбой ввести числа.
Функция readln используется для получения значений переменных a, b, c от пользователя.
С помощью функции gotoxy курсор перемещается в нужную позицию на экране.
Блок if-else используется для определения наименьшего числа.
Если a меньше b и c, то выводится сообщение, что a — наименьшее число.
Если b меньше a и c, то выводится сообщение, что b — наименьшее число.
Если c меньше a и b, то выводится сообщение, что c — наименьшее число.
Программа ожидает ввода пользователя с помощью функции readln.
Код завершается.