Решите задачу по информатике

if 15. Даны три числа. Найти сумму наибольших из них.

Program z1;

var s:integer;

a, b, c:integer;

begin

write ('a=') ; readln (a) ;

write ('b=') ; readln (b) ;

write ('c=') ; readln (c) ;

if (a>c) and (b>c) then writeln (a+b) ;

if (a>b) and (c>b) then writeln (a+c) ;

if (b>a) and (c>a) then writeln (b+c) ;

readln

end.