Урок 9 задача 6 (Вариант1)

Пользователь вводит три числа, найдите из них максимальное.
1. С использованием логической операции and.

ссылка
решение

program U9Z6(1);
var
a, b, c: integer;

begin

     writeln('insert namber a - ');
     readln(a);
     writeln('insert namber b - ');
     readln(b);
     writeln('insert namber c - ');
     readln(c);

     if (a > b) and (a > c) then
        Writeln(a, 'a-max');
     if (b > a) and (b > c)  then
        Writeln(b, 'b-max');
     if (c > a) and (c > b) then
        Writeln(c, 'c-max');

     readln();

end.