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

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 напишите а:=(число) и т.д.