Числа, псевдографика, склонение слова

Program dvuh;
var n,x:word;
begin
  repeat
  write('vvedite chislo n, 1<=n<10: ');readln(n);
  until (n>=1)and(1<10);
  For x:=1 to 100 do
  begin
  if (x mod n=0)or(x div 10=10)or(x mod 10=n) then writeln('chislo ',n,'delitsya na N ili v nem est N')
  else writeln('v chisle ',x,' net N, i chislo na N ne delitsya bez ostatka')
  end;
end.

Program nebo;
Uses CRT;
var a,b,c,i:word;
begin
 textmode(3);
 i:=1;
 repeat
  randomize;
  a:=random(80)+1;
  b:=random(25)+1;
  c:=random(15)+1;
  delay(2000);
  gotoxy(a,b);
  textcolor(c);
  write('*');
  i:=i+1;
  until i=100;
end.

Program 
  nebo;
Uses 
  CRT;
var 
  a,b,c,i:word;
begin
 textmode(3);
 i:=1;
 repeat
   randomize;
   a:=random(80)+1;
   b:=random(25)+1;
   c:=random(15)+1;
   delay(60000);
   gotoxy(a,b);
   textcolor(c);
   write('*');
   i:=i+1;
 until i=100;
end.

const
  n1=[5..9];
  n2=[2..4];
  n3=[11..19];
var
  variant,count:integer;
  okon:string;
begin
  readln(count);
  if (count in n3) or (count mod 10=0) or (count mod 10 in n1) then
    variant:=1
  else
  begin
    if count mod 10=1 then
      variant:=2;
    if count mod 10 in n2 then
      variant:=3;
  end;
  case variant of
  1: okon:='í';
  2: okon:='íà';
  3: okon:='íû';
  end;
  writeln('íà äåðåâå ñèäåëî ',count,' âîðî',okon)
end.

const
  n1=[5..9];
  n2=[2..4];
  n3=[11..19];
var
  variant,count:integer;
begin
  readln(count);
  if (count in n3) or (count mod 10=0) or (count mod 10 in n1) then
    variant:=1
  else
  begin
    if count mod 10=1 then
      variant:=2;
    if count mod 10 in n2 then
      variant:=3;
  end;
  case variant of
  1: writeln('íà äåðåâå ñèäåëî ',count,' âîðîí');
  2: writeln('íà äåðåâå ñèäåëî ',count,' âîðîíà');
  3: writeln('íà äåðåâå ñèäåëî ',count,' âîðîíû');
  end;
end.

var
  ch,i:integer;
  st:string;
begin
  readln(ch);//÷èòàåì ÷èñëî
  st:=inttostr(ch);//ïåðåâîäèì ÷èñëî â ñòðîêó ñ ïîìîùüþ IntToStr
  for i:=1 to length(st)div 2 do//ïðîõîäèìñÿ öèêëîì ñ 1 ñèìâîëà äî ñåðåäèíû
    if st[i]<>st[length(st)-i+1] then//è ñìîòðèì åñëè áóêâû íå ñîâïàäàþò òî âûõîäèì èç ïðîãðàììû
      exit;//à åñëè âñå íîðì òî âûâîäèì â êîíöå ñîîáùåíèå)
  writeln('×èñëî ',ch,' ÿâëÿåòñÿ ïàëèíäðîìîì.')
end.

uses crt;
var k:byte;
begin
clrscr;
repeat
write('Введите число от 1 до 99 K = ');
readln(k);
until k in [1..99];
write('На дереве ');
if k in [11..14] then write('сидело ',k,' ворон')
else
 case k mod 10 of
  1:write('сидела ',k,' ворона');
  2..4:write('сидели ',k,' вороны');
  0,5..9:write('сидело ',k,' ворон');
 end;
readln;
end.

uses crt;
var n,m,p:longint;
    i:integer;
begin
clrscr;
write('Vvedite naturalnoe chislo n=');
readln(n);
m:=n;
p:=0;
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
if p=n then write('Palindrom')
else write('Ne palindrom');
readln
end.