Ответ:

program nnn;

var a, b, c, d, e:integer;

begin

 readln(a, b, c);

 d:=a+b;

 e:=c-b;

 if d=e then writeln('Равенство выполнено')

 else writeln('Равенство не выполнено')

end.

Объяснение: