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

Задача 6 Часть2 Урок 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) then
     if (a>c) then
        writeln ('Bolshee chislo A ',a)
     else
        writeln ('Bolshee chislo C ',c)
  else
     if (b>c) then
        writeln ('Bolshee chislo B ', B)
     else
        writeln ('Bolshee chislo C ',c);
  readln;
end.