Задача 6 Часть 1 Урок 9

Задача 6 Часть 1 Урок 9

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

С использованием логической операции and.
С вложенными блоками (без and, все опараторы if должны быть в полной форме).
Без вложенных блоков (без 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);
  if ((a>b) and (a>c)) then
      writeln ('bolshee chislo A= ',a);
  if ((b>a) and (b>c)) then
     writeln ('bolshee chislo B= ', b);
  if ((c>a) and (c>b)) then
     writeln ('bolshee chislo C= ', c);
  readln();
end.