что делает эта программа(паскаль)..???срочно нужно
Var
N, A, B, C: Integer;
Begin
Write ('Введите двузначное число > ');
Readln (N);
A:=N mod 10;
B:=N div 10;
C:=B-A;
Writeln ('Результат > ', C);
End.