ООООО Объяснить принцип работ следующих программ (записать, что происходит в каждой сточке программы):1)program n22;var a,b:integer;beginwriteln('введите целое число a');readln(a);writeln('введите целое число b');readln(b);writeln ('a mod b = ',a mod b);writeln ('a div b = ',a div b);end. 2)program n_s;var a, b, c: integer;p, s: real;beginwriteln('Вычисление площади треугольника по трем сторонам');write('введите значения a, b, c');readln(a, b, c);p:= (a+b+c)/2;s:= sqrt(p*(p-a)*(p-b)*(p-c));writeln ('s=', s:2:1);end.