Определить является заданное число трехзначным. если не сложно то всю программу полностью.

var n: integer;

begin

  read(n);

  if (n> 99) and (n< 1000) then writeln('yes')

  else writeln('no');

end.

var a : integer; begin readln(a); if (a div 10 > 0)and(a div 100> 0)and(a div 100< 10) then writeln('число трехзначное') else writeln('число не трехзначное'); end.

Var n,d: integer; begin write('введите месяц : '); readln(n); write('введите день : '); readln(d); n: =n mod 12;   case n mod 12 of   1: if d< =20 then writeln('козерок') else writeln('водолей');   2: if d< =21 then writeln('водолей') else writeln('рыба');   3: if d< =21 then writeln('рыба')    else writeln('овен');   4: if d< =21 then writeln('овен')    else writeln('телец');   5: if d< =21 then writeln('телец')    else writeln('близницы');   6: if d< =22 then writeln('близницы')    else writeln('рак');   7: if d< =23 then writeln('рак')    else writeln('лев');   8: if d< =24 then writeln('лев')    else writeln('дева');   9: if d< =24 then writeln('дева')    else writeln('весы');   10: if d< =24 then writeln('весы')    else writeln('скорпион');   11: if d< =23 then writeln('скорпион')    else writeln('стрелец');   12: if d< =22 then writeln('стрелец')    else writeln('козерок'); end; end. //без if вряд ли удаться обойтись(+ я не учитывал високосный год и кратный 100 и 400)

Const     m = 4;     n = 4; var     a: array[1..m,1..n] of integer;     i,j: integer; begin writeln('массив: '); for i: = 1 to m do       begin       for j: = 1 to n do               begin               if (i+j) mod 2 = 0 then a[i,j]: =i*j               else a[i,j]: =i+j;               write(a[i,j]: 3,' ')               end;             writeln       end; end.