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 и выделяет остаток