Что не так в программе, она должна узнать какое число больше? вот программа program primer; var a, b, с:integer; Begin readln (a, b, с); if a>b then writeln (a) else if b>c writeln (b) else if c>a writeln (c); end.

В конструкциях else if пропущено then При вводе трех чисел, например 4, 1, 10 в качестве максимального программа выводит 4, потому что сравниваются только два числа (если а>b), а третье (с) не рассматривается.

Рабочая программа:

program primer;

var a, b, c: integer;

Begin readln (a, b, c);

if (a > b) and (a > c) then writeln (a)

else if b > c then writeln (b) / /если дошли до этой точки, значит b>a

else writeln (c); / /если дошли до этой точки, значит a < c и b < c.

end.