Деление числа на 6!!

program na11;
uses crt;
var r4,r3,n,s,r,r1,r2,r6:longint;
h:integer;
st:string[80];
 
function krat11(n:longint):boolean;
var s,z:integer;
 
begin
z:=-1;
while n>0 do
begin
z:=-z;
s:=s+z*(n mod 10);
n:=n div 10;
end;
krat11:=s mod 11 =0;
end;
 
function del6(o:integer):boolean;
begin
if (o mod 100) mod 6 = 0 then
del6:=true
else
del6:=false;
end;
 
function del5(lu:integer):boolean;
begin
if (lu mod 100) mod 5 or 0 = 0 then
del5:=true
else
del5:=false;
end;
 
function del4(q:integer):boolean;
begin
if (q mod 100) mod 4 = 0 then
del4:=true
else
del4:=false;
end;
 
 
 
function su(i:longint):integer;
begin
if i <> 0 then
su:=(i mod 10)+su(i div 10)
else su:=0;
end;
 
 
function del2(l:integer):boolean;
begin
if (l mod 100) mod 2 = 0 then
del2:=true
else
del2:=false;
end;
 
 
 
 
begin
clrscr;
textcolor(11);
writeln('Задание: Натуральное число в десятичном ввиде представленно строкой длинной не более 80 символов');
writeln('Написать функцию признака делимости на:');
writeln('а) 11');
writeln('б) 6');
writeln('в) 5');
writeln('г) 4');
writeln('д) 3');
writeln('е) 2');
 
 
writeln(' После ознакомлением с заданием нажмите "Enter" ');
writeln;
readln;
write('введите в строку число : ');
readln(st);
 
val(st,n,h);
while (h<>0) do begin
textcolor(lightred);
if h=1 then writeln('Вы допустили ошибку символы недопустимы!!!.Пойжалусто повторите ввод!!!.');
textcolor(lightred);
write('цифры с символами недопустимы!!');
writeln;
textcolor(11);
write('Введите в строку число: ');
readln(st);
val(st,n,h);
end;
 
val(st,n,h);
textcolor(lightred);
if krat11(n)=true then r3:=n div 11
else writeln('число ',n,' не делится на 11');
textcolor(10);
if krat11(n)=true then writeln('число ',n,'делится на 11 результат =',r3:20);
 
textcolor(11);
 
val(st,n,h);
s:=su(n);
writeln('число делится на 6 тогда и только тогда, когда оно делится на 2, и на 3');
writeln('т.е если оно четное и сумма его цифр делится на 3)');
writeln('сумма чисел=',s);
if del2(n)=true then writeln('заданное вами число является четным')
else writeln('заданное вами число не является четным, либо сумма цифр числа ',n,' не делится на 3');
textcolor(lightred);
if del2(n)=true and ( n mod 3 = 0) then r6:=n div 6
else writeln('число ',n,' не делится на 6');
textcolor(10);
if del2(n)=true and ( n mod 3 = 0) then writeln('число ',n,' делится на 6 результат =',r6:20);
 
textcolor(11);
 
val(st,n,h);
writeln('число делится на 5 тогда и только тогда, когда последний элемент числа равен 0 или 5');
textcolor(lightred);
if del5(n)=true then r2:=n div 5
else writeln('число ',n,' не делится на 5');
textcolor(10);
if del5(n)=true then writeln('число ',n,' делится на 5 результат =',r2:20);
 
textcolor(11);
 
val(st,n,h);
writeln('число делится на 4 тогда и только тогда когда,');
writeln('число из двух последних цифр(оно может быть двузначным, однозначным или нулем) делится на 4');
if del4(n)=true then writeln('заданное вами число является четным')
else writeln('заданное вами число не является четным, либо не делится на 4');
textcolor(lightred);
if del4(n)=true then r4:=n div 4
else writeln('число ',n,' не делится на 4');
textcolor(10);
if del4(n)=true then writeln('число ',n,' делится на 4 результат =',r4:20);
 
textcolor(11);
 
val(st,n,h);
s:=su(n);
writeln('число делится на 3 тогда и только тогда, когда сумма цифр делитсяна 3');
writeln('сумма чисел=',s);
textcolor(lightred);
if n mod 3 = 0 then r:=n div 3
else writeln('число ',n,' не делится на 3 ');
textcolor(10);
if n mod 3 =0 then writeln('число ',n,' делится на 3 результат =',r:20);
 
textcolor(11);
 
val(st,n,h);
writeln('число делится на 2 тогда и только тогда, когда оно является четным');
if del2(n)=true then writeln('заданное вами число является четным')
else writeln('заданное вами число не является четным');
textcolor(lightred);
if del2(n)=true then r1:=n div 2
else writeln('число ',n,' не делится на 2');
textcolor(10);
if del2(n)=true then writeln('число ',n,' делится на 2 результат =',r1:20);
textcolor(11);
writeln;
writeln(' Для выхода нажмите "Enter"');
readln;
end.

textcolor(10);
if del2(n)=true and ( n mod 3 = 0) then
begin
writeln('число делится на 6');
else writeln('число ',n,' не делится на 6');

function na_2(x: integer): boolean;
begin
  //последняя цифра четная
  if (x mod 10) mod 2 = 0 then
    result := true
  else
    result := false;
end;
 
function na_3(x: integer): boolean;
var
  sum: integer;
begin
  //делится на 3 если сумма цифр делится на 3
  while x > 0 do 
  begin
    sum := sum + x mod 10;
    x := x div 10;
  end;
  if sum mod 3 = 0 then
    result := true
  else
    result := false;
end;
 
function na_4(x: integer): boolean;
var
  ch: integer;
begin
  //делится на  4 если сумма последних двух цифр-1 делится на 2
  //или 2 раза делится на 2 без остатка
  ch := x mod 2;
  if ch = 0 then
  begin
    ch := ((x mod 100) div 10) mod 2;
    if ch = 0 then
      result := true
    else
      result := false;
  end
  else
    result := false;
  
end;
 
function na_5(x: integer): boolean;
begin
  //делится на 5 если последняя цифра 0 или 5
  if (x mod 10 = 0) or (x mod 10 = 5) then
    result := true
  else
    result := false;
end;
 
function na_6(x: integer): boolean;
begin
  //делится на 6 если делится на 2 и на 3
  if (na_2(x)) and (na_3(x)) then
    result := true
  else
    result := false;
end;
 
function na_11(x: integer): boolean;
var
  s: string;
  i, x1, x2, xt, err: integer;
begin
  //тут сложнее
  str(x, s);
  for i := 1 to length(s) do 
  begin
    val(s[i], xt, err);
    if i mod 2 <> 0 then
      x1 := x1 + xt
    else
      x2 := x2 + xt;
  end;
  if (x1 = x2) or (abs(x1 - x2) mod 11 = 0) then
    result := true
  else
    result := false;
end;
 
var
  elem: integer;
 
begin
  readln(elem);
  
  if na_2(elem) then
    writeln('на 2 делится')
  else
    writeln('не делится на 2');
  
  if na_3(elem) then
    writeln('делится на 3')
  else
    writeln('не делится на 3');
  
  if na_4(elem) then
    writeln('делится на 4')
  else
    writeln('не делится на 4');
  
  if na_5(elem) then
    writeln('делится на 5')
  else
    writeln('не делится на 5');
  
  if na_6(elem) then
    writeln('делится на 6')
  else
    writeln('не делится на 6');
  
  if na_11(elem) then
    writeln('делится на 11')
  else
    writeln('не делится на 11');
  
  
end.

function na_2(x: integer): boolean;
begin
  //последняя цифра четная
  if (x mod 10) mod 2 = 0 then
    na_2 := true
  else
    na_2 := false;
end;