PROGRAM Inso;

USES crt;

VAR M, N, i : integer;

BEGIN

clrscr;

M := 0 ;

N := 0 ;

For i := 1 TO 20 do

Begin

if ( (I mod 3) = 0 ) then M := M + i ;

if ( (I mod 3) = 0 ) and ( (I mod 5) = 0 ) then N := N+i ;

End;

writeln( ‘M=’, M, ‘N=’, N);

readln

END.