Написать программку, которая по заданным трем числам определяет, является ли сумма

program summ;

var

a, b, c: integer;

begin

cls;
write ( Введите 1-ое число: );
readln ( a );
write ( Введите 2-ое число: );
readln ( b );
write ( Введите третье число: );
readln ( c );
if ( a + b gt; 0 ) or ( b + c gt; 0 ) or ( a + c gt; 0 ) then
writeln ( Есть положительная сумма среди введённых юзером чисел. )
else
writeln ( Положительной суммы нет. );
readln;
end.