Урок №9 Задание 8.1

Урок №9 Задание 8.1

Пользователь вводит три числа, найдите из них максимальное

program Pr9_81;

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

var a,b,c:integer;

begin
  writeln('Введите три числа: ');
  readln(a,b,c);

  if (a>b) and (a>c) then
     writeln('max=A: ',a)
     else
     if (b>a) and (b>c) then
        writeln('max=B: ',b)
        else
        if (c>a) and (c>b) then
           writeln('max=C: ',c);

  readln();
end.                

Консоль:

Введите три числа:
1
2
3
max=C: 3