Задача 6(1) Урок 9

link

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

program lesson9_6_1;
var
  a, b, c: integer;
begin
  writeln('enter 3 number');
  readln(a, b, c);
  if((a > b) and (a > c)) then
      writeln(a, ' - max number')
  else if ((b > a) and (b > c)) then
      writeln(b, ' - max number')
  else if ((c > a) and (c > b)) then
      writeln(c, ' - max number');
  readln();
end.