Обусловьте значение переменной A . Полное решение, пожалуйста .

program number7;

uses crt;

var A: integer;

begin

clrscr;

A:=(116 div 10)*(116 mod 15) div 2 +116 mod 6;

writeln('a=',A);

end.

a=62, div 10 - разделяет число на 10 и выделяет целую часть, mod 15 - разделяет число на 15 и выделяет остаток от дробленья , div 2 - разделяет число на 2 и выделяет целую часть, mod 6 - разделяет число на 6 и выделяет остаток