- Program Max_Tsena;
Var a,b,c,sum : Real;
Begin
Writeln('vvedite tsenu 3-ox tovarov');
Read(a,b,c);
if (a>c) AND (b>c) then sum:=a+b
else
if (b>a) AND (c>a) then sum:=b+c
else sum:=a+c;
Writeln('sum=',sum :0:0);
Readln
END.
вот синтаксис поправил.теперь работает