Даны 3 действительных числа,определить их сумму,исключив наименьшее- Pascal(Паскаль)

program aaaa;
uses crt;
var a,b,c,s:integer;
BEGIN
 readln(a);{задаем а}
readln(b);{задаем b}
readln(c){задаем c}
 if (a>b) and (a>c) then s:=b+c
 else if (b>a) and (b<c) then s:=a+c
 else s:=a+b;
writeln('ответ s=',s);
END.