Проверить, является ли НОД чисел a, b трехзначным числом

program my; 
  var a, b: longint; 
begin 
  readln(a, y); 
  while (a>0) and (b>0) do 
  begin 
    If a>b 
     then a:=a mod b 
     else b:=b mod a; 
    If (a+b>99) or (a+b<1000) 
     then writeln (‘да’) else writeln (‘ нет ’); 
   end; 
end.

program my_1; 
 var n, i: integer; 
begin 
 read; 
 while n>0 do 
   begin 
     b:=n mod 10; n:= n div 10; 
     if b mod 2 = 0 
       then writeln (‘да’) else writeln (‘ нет ’); 
    end ; 
end .

program ex2; 
 var n: longint; b, k: byte; 
begin 
 readln( n ); k:=0; 
 while n>0 do 
  begin 
    b:=n mod 10; k:=k+1; 
    n:=n div 10 end; 
  writeln(k); 
end.

...
if not odd(n) then write('четное');
else write('нечетное');
...

uses crt;
var a,b:longint;
s:integer;
function nod(x,y:integer):integer;
var r:integer;
begin
r:=x mod y;
if r<>0 then
begin
 x:=y;
 y:=r;
 nod:=nod(x,y);
end
else nod:=y;
end;
begin
clrscr;
Writeln('Ââåäèòå a è b:');
Readln(a,b);
s:=nod(a,b);
if (s>99) and (s<1000) then writeln('Âõîäèò â äèàïîçîí')
                         else writeln('Íå âõîäèò â äèàïîçîí');
readkey;
end.