написать программу, которая определяет значение целочисленной переменной A, после выполнения фрагмента алгоритма:

A:=247;
В:=(А*div 100) * 10-9
А:=(10*b-a) mod 10;

Как на счетProgram sk;var A,B:integer;beginA:=247;B:=(A div 100) * 10-9;A:=(10*B-A) mod 10;writeln('A= ',A);end.