Pascal:
var
n : integer;
begin
if n >= 100 then
write('Да, трехзначное');
else
write('Нет, не трехзначное');
readln; readln; // для паузы
end.
p.s. За синтаксические ошибки не отвечаю
==============================
C++:
#include
int main() {
//Если нужен русский язык на выводе написать здесь: setlocale(LC_ALL, "rus");
int n;
cin >> n;
if (n>=100) {
cout << "Yes";<br> } else {
cout << "No";<br> }
system("pause"); // Для паузы
return 0;
}