Банальный пример: 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 b>m then m:=b;
if c>m then m:=c;
writeln(m);
end.
Полужирным шрифтом выделен фргмент, который выполняет ту же функцию, что и фрагмент в учебнике.