program ModCalculations;
varA, B, C, result: Integer;
beginA := 35;B := 6;C := 4;
result := A mod (B div C + 5) - 10;
writeln('Результат выражения A mod (B div C + 5) - 10, если A=35, B=6, C=4 равен ', result);end.
program ModCalculations;
var
A, B, C, result: Integer;
begin
A := 35;
B := 6;
C := 4;
result := A mod (B div C + 5) - 10;
writeln('Результат выражения A mod (B div C + 5) - 10, если A=35, B=6, C=4 равен ', result);
end.