спасиб огромное

Program Max_Tsena;
Var a,b,c,summ : Real;

Begin

Writeln("vvedite tsenu 3-ox tovarov");
Read(a,b,c);

if (a>c) AND (b>c)
sum:=a+b;
else
if (b>a) AND (c>a)
sum:=b+c;
else sum:=a+c;

Writeln("sum=",sum);
Read();
END.