Даны три действительных числа: a, b, c. Проверьте, выполняется ли равенство a + b = c. Если равенство выполняется, выведите YES, если не выполняется, выведите NO.

Program ravenstvo;

var

a, b, s: integer;

begin

readln (a);

readln (b);

readln (c);

if a+b=c then

writeln ('YES')

else

writeln ('NO');

end.

В данной программе вы должны сами ввести числа с клавиатуры, так же можно задать эти числа сразу в программе: вместо 3-х строчек readln напишите а: = (число) и т. д.