Даны три целых числа. Найти сумму двух наибольших из них

var sum,a,b,c:integer;
begin
  write('Vvedite pervoe chislo: ');
  readln(a);
  write('Vvedite vtoroe chislo: ');
  readln(b);
  write('Vvedite tretie chislo: ');
  readln(c);
  if (a>=b) then
    if (b>=c) then sum:=a+b
    else sum:=a+c
  else 
    if (a>=c) then sum:=a+b
    else sum:=b+c;  
  writeln('sum=',sum);
end.

Uses crt;
 var a,b,c:integer;
begin
clrscr;
  readln(a,b,c);
   if(a+b)>=(b+c)and(a+c)then writeln(a+b)
     else
   if(b+c)>=(a+c)and(a+b)then writeln(b+c)
     else
   if(a+c)>=(b+c)and(a+b)then writeln(a+c);
readkey;
end.

var a, b, c: integer;
begin
  readln(a, b, c);
  if (c <= a) and (c <= b)
    then writeln(a + b)
    else if (b <= a) and (b <= c)
      then writeln(a + c)
      else writeln(b + c);
  readln
end.

var 
a, b, c, min: integer;
begin
  readln(a, b, c);
  if a<b   then min:=a else min:=b;
    if c<min then min:=c;
   writeln(a +b+c-min);
   end.