С клавиатуры вводят произвольное четырехзначное число. Найти и вывести на экран, сумму второй и третьей цифр этого числа.

И вот если не сложно: 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