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

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

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

var
  a,b,c:integer;
begin
     writeln('vvedite chislo a');
     readln(a);
     writeln('vvedite chislo b');
     readln(b);
     writeln('vvedite chislo c');
     readln(c);
     begin
          if ((a>b)and(a>c))then
             writeln('a bolshe :', a)
          else
             if ((b>a)and(b>c))then
             writeln('b bolshe :',b)
          else
             if ((c>a)and(c>b))then
             writeln('c bolshe :',c)
     end;
     readln();
end.

Вывод консоли:

vvedite chislo a
10
vvedite chislo b
29
vvedite chislo c
1
b bolshe :29