Решить задачу

Даны 3 числа найти сумму 2 наибольших чисел

var

a, b, c: integer;

begin

write ('Введите три числа: ') ;

readln (a, b, c) ;

if a > b then

if b > c then writeln ('Сумма наибольших: ', a+b)

else writeln ('Сумма наибольших: ', a+c)

else if a > c then writeln ('Сумма наибольших: ', a+b)

else writeln ('Сумма наибольших: ', b+c) ;

end.

Program sum2; var x, y, z:real; beginread (x, y, z) ; if x>z thenif y>z thenwriteln (x+y) ; if x>y thenif z>y thenwriteln (x+z) ; if y>x then if z>x then writeln (y+z) ; end.