Составить блок-схему и написать программу: дано натуральное число. найдите число десятков в его десятичной записи ( то есть вторую справа цифру его десятичной записи)

Program P1;
var
a, n:longint;
begin
readln(n);
a:=(n mod 100);
a:=(a div 10);
writeln(a);
end. 

тип переменной longint означает натуральное число , просто более большее