1) Определите значение целочисленных переменных a и b после выполнения фрагмента программы:
a:=1819;
b:=(a div 100)*10+9;
a:=(10*b-a) mod 100

div - деление нацело с отбрасыванием остатка, mod - нахождение остатка от деления

b = (1819 div 100)*10 + 9 = 18*10 + 9 = 189

a = (10*189-1819) mod 100 = (1890-1819) mod 100 = 71 mod 100 = 71