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

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

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.

var a, b, c, f, i: integer;

begin
    a := 2;
    b := 4;
    c := 6;

    if (a > b) then
        f := a
    else
        f := b;

    if (b > c) then
        f := b
    else
        f := c;

    if (c > a) then
        i := c
    else
        i := a;

    if (f > i) then
        writeln('otvet: ', f)
    else
        writeln('otvet: ', i);

    readln();

end.

КОНСОЛЬ:

otvet: 6