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

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

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

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

var
   a,b,c,max : integer;

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('maximum ', max)
  else
    writeln('maximum ', c);
  readln();
end.