Задача 6.1 Урок 9

Задача 6.1 Урок 9:

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and

.

var a, b, c: integer;
begin
    a := 10;
    b := 15;
    c := 10;

    if ((a >= b) and (a >= c)) then
        writeln('otvet: ',a)

    else
        if ((b >= a) and (b >= c)) then
            writeln('otvet: ',b)

        else
            if ((c >= a) and (c >= b)) then
                writeln('otvet: ',c);

    readln();
end.

КОНСОЛЬ:

otvet: 15