Даны переменные X, Y, Z. Если их сумма положительна, то вывести "YES" иначе-вывести "NO".

program zz1;

var x, y, z:integer; / /задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (x);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (y);

write (' введите третье число '); / / вводим с клавиатуры третье число

read (z);

if x + y + z > 0 / / проверяем, если сумма трех введенных заданных чисел положительная, то

then writeln (' YES ') / / выводим один ответ

else writeln (' NO '); / / иначе, выводим другой ответ

end.