Решение 1 Задача 6 Урок 9

Урок 9

Пользователь вводит три числа, найдите из них максимальное.
С использованием логической операции and
(все опараторы if должны быть в полной форме).

var a, b, c: integer;

begin

  writeln('Vvedite pervoe chislo (int) A =');
  readln(a);
  writeln('Vvedite vtoroe chislo (int) B =');
  readln(b);
  writeln('Vvedite vtoroe chislo (int) C =');
  readln(c);

  if ((a > b) AND (a > c)) then
     begin
          writeln(a, ' - maximalnoe chislo')
     end

  else if ((b > a) AND (b > c)) then
       begin
            writeln(b, ' - maximalnoe chislo')
       end

  else if ((c > a) AND (c > b)) then
     begin
          writeln(c, ' - maximalnoe chislo')
     end;

  readln();

end.

КОНСОЛЬ

Vvedite pervoe chislo (int) A =
100
Vvedite vtoroe chislo (int) B =
200
Vvedite vtoroe chislo (int) C =
290
290 - maximalnoe chislo