Фото не открываеться, замените
Var a,b,c,d:integer;
begin
d:=a+b*10+c*100;
for d:=100 to 999 do
begin
if b=a-c or b=c-a then writeln (d);
end;
end.
Мы делали сумативку и нам учительница сказала что то вроде зона беспроводной связи
В следующий раз внимательно смотрите за переменными и что вы им присваиваете и желательно вам разобратся в типах данных, это основы основ.