помогите пожалуйстасрочноооо

Очевидный пример: 3 2 1. Выведено будет 2.

В данной программе не предвидено, что a может быть наивеличайшим. всегда m будет присвоено значение b либо c.

Улучшенная программка (полная версия).

Program n_1;

var a, b, c, m: integer;

begin

   read(a, b, c);

   m:=a;

   if bgt;m then m:=b;

   if cgt;m then m:=c;

   writeln(m);

end.

Полужирным шрифтом выделен фргмент, который исполняет ту же функцию, что и кусок в учебнике.