задача 6 урок 9:

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

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

//способ 1
var A, B, C: real;
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(A)
  else if ((B > A) AND (B > C)) then
      writeln(B)
  else
      writeln(C);

  readln();
end.

//способ 2
var A, B, C: real;
begin
  writeln('vvedite chislo A: ');
  readln(A);
  writeln('vvedite chislo B: ');
  readln(B);
  writeln('vvedite chislo C: ');
  readln(C);

  if (A > B) then begin
      if (A > C) then
          writeln(A)  end
  else if (B > A) then  begin
           if (B > C) then
               writeln(B)
           else
               writeln(C);  end.

  readln();
end.

//способ 3
var A, B, C: real;
var max: real;
begin
  writeln('vvedite chislo A: ');
  readln(A);
  writeln('vvedite chislo B: ');
  readln(B);
  writeln('vvedite chislo C: ');
  readln(C);

  if (A > B) then
       max := A
  else
      max := B;
  if (max > C) then
       writeln(max)
  else
      writeln(C);

  readln();
end.  

Исправлен второй вариант решения

var A, B, C: real;
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(A);
  if (B > A) then
    if (B > C) then
      writeln(B);
  if (C > A) then
    if (C > B) then
      writeln(C);
  readln();
end.