Вася написал программку:var x:integer;begin readln(x); x := (x mod

Вася написал программку:
var x:integer;
begin
readln(x);
x := (x mod 100) div 10;
writeln(x);
end.
Обусловьте, что будет напечатано при различных значениях x.
x = 100
x = 10
x = 123456789
x = 218
x = 5