Задача 6 Урок 9

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

С использованием логической операции and.
С вложенными блоками (без and).
Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.

var a, b, c, g, e, r: integer;

begin
    readln(a);
    readln(b);
    readln(c);

    if ((a > b) and (a > c)) then
       writeln(a) else
       if ((b > a) and (b > c)) then
          writeln(b) else
          writeln(c);
    readln();
   if (a > b) then
      begin
           if (a > c) then
              writeln(a);
      end;
   if (b > a) then
      begin
           if (b > c) then
               writeln(b);  //235   325
      end;
   if (c > b) then
      begin
           if (c > a) then
               writeln(c);
      end;
readln();

    if (a > b) then
         g := a
    else
         g := b;
    if (g > c) then
         e := g
    else
         e := c;
    r := e;
    writeln(r);
readln();
end.