Положительная сумма - [1] уровень

Условие:
Написать программу, которая по заданным трем числам определяет, является ли сумма каких-нибудь двух из них положительной.

Решение:
var
a,b,c:real;x:boolean;
begin
write('Введите три числа:');
readln(a,b,c);
if a+b>0 then begin writeln('Сумма чисел ',a:1:0,' и ',b:1:0,' положительна!');x:=true;end;
if b+c>0 then begin writeln('Сумма чисел ',b:1:0,' и ',c:1:0,' положительна!');x:=true;end;
if a+c>0 then begin writeln('Сумма чисел ',a:1:0,' и ',c:1:0,' положительна!');x:=true;end;
if x=false then writeln('Положительная сумма не найдена!');
readln;
end.