На 6 строчке где условие ошибка: "Ождался знак ;" Везде ставил ошибка все равно есть. Посмотрите пожалуйста.
program govno2; var a, b, c: real; Begin read(a,b); c:=a if b>a then c:=b; write(c) End.
в предыдущей строке нет ;
поставьте, и все откомпилируется.
После Write (c) обязательно нужно поставить точку с запятой, вроде должно помочь.