С клавиатуры вводят произвольное четырехзначное число. Найти и вывести на экран, сумму второй и третьей цифр этого числа. И вот если не сложно: 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