Помогите решить, 18+38 mod 32
Var A,B,C,S: integer; begin A:=18; B:=38; S:=A+B; C:= S mod 32; writeln('18+38 mod 32 = ',C); end.
или проще - writeln(18+38 mod 32);