Что не так в программе, она должна узнать какое число больше??? вот программа program primer; var a,b,с:integer; Begin

1. В конструкциях else if пропущено then
2. При вводе трех чисел, например 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.