Pascal: 
var
    n    : integer;
begin
    if n gt;= 100 then 
        write(Да, трехзначное);
    else 
        write(Нет, не трехзначное);
    readln; readln;  // для паузы
end.

p.s. За синтаксические ошибки не отвечаю

==============================
C++:

#include lt;iostreamgt;

int main() {
    //Если нужен русский язык на выводе написать здесь: setlocale(LC_ALL, "rus");
    int n;
    cin gt;gt; n;
    if (ngt;=100) {
        cout lt;lt; "Yes";
    } else {
        cout lt;lt; "No";
    }
    system("pause"); // Для паузы
    return 0;
}