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