C++ :

#include <iostream>

using namespace std;

int main()
{
cout << "198";
return 0;
}

Pascal :

var
i,a,s,d:integer;
begin
for i:=100 to 999 do
begin
a:=i div 100;
s:=i div 10 mod 10;
d:=i mod 10;
if i/11=+a+s+d then
write(i);
end;
end.