Склавиатуры вводят произвольное четырехзначное число. найти и вывести на экран, сумму второй и третьей цифр этого числа. и вот если не сложно: 234mod100 (567div10)mod10

Var a,b,n,kol,ch:integer;begin
writeln('введите число');
readln(n);
    ch:=n;
    n:=n div 10;
    a:=n mod 10;
    b:=a;
    n:=n div 10;
    a:=n mod 10;
    kol:=a+b;writeln('сумма второй и третей цифр числа ',ch,' ==> ',kol);
  end.        
234mod100=43
(567div10)mod10=6