Program Ch;
var a,b,c:integer;
begin
readln(a,b,c);
if a>b then if a>c then max:=a
else max:=c end
else if b>c then max:=b
else max:=c;
writeln('Max=',max);
readln
end.
Program Ch;
var a,b,c:integer;
var max:integer;
begin
readln(a,b,c);
if a>b then
if a>c then max:=a
else max:=c
else if b>c
then max:=b
else max:=c;
writeln('Max=',max);
readln();
end.
в строке else max:=c end должна быть точка с запятой
во вторых - ты не объявила переменную MAX в начале,
в третьих - можно обойтись без нее
удали все строки ниже readln(a,b,c); и замени следующим
if (a>b) and (a>c) then writeln('MAX=',a) else
if (b>a) and (a>c) then writeln('MAX=',b) else writeln('MAX=',c);
readln;
end.
⇢