Спросить у пользователя 3 целых числа - Pascal

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

Спросить у пользователя 3 целых числа Если наибольшее число - первое, то вывести сумму чисел Если наибольшее - второе, то произведение чисел Если наибольшее, - третье, то вывести остаток от деления суммы двух первых на третье Если числа равны, вывести сообщение"числа равны"

Решение задачи: «Спросить у пользователя 3 целых числа»

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

uses crt;
var
a,b,c,d:real;
begin
     Write('Введите три целых числа: ');
     readln(a,b,c);
     if (a>b) and (a>c) then
     d:=a+b+c else
     if (b>a) and (b>c) then
     d:=a*b*c else
     if (c>a) and (c>b) then
     d:=(a+b)/c;
     if (a=b)and(b=c) then
     writeln('Числа равны')else
     write(d);
end.

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

В начале кода подключается модуль CRT (клавиатура/монитор).
Объявляются переменные a, b, c, d типа real (число с плавающей точкой).
Выводится сообщение «Введите три целых числа:» с помощью функции Write.
С помощью функции Readln считываются три целых числа и сохраняются в переменных a, b, c.
С помощью условного оператора if проверяется, какое из чисел является наибольшим.
Если a больше b и a больше c, то наибольшее число d равно сумме a, b и c.
Если b больше a и b больше c, то наибольшее число d равно произведению a, b и c.
Если c больше a и c больше b, то наибольшее число d равно сумме a и b, делённой на c.
Если a равно b и b равно c, то выводится сообщение «Числа равны» с помощью функции Writeln.
В противном случае выводится значение d с помощью функции Write.