var n, d, i: word;
sa, sc: longint;
Begin
Write('nhap n: '); readln(n);
sa:=0; sc:=0; d:=0;
For i:=1 to n do
Begin
sa:=sa+i;
if (i mod 15 = 0) and (i<>n)
then sc:=sc+i;
if i mod 5 = 0 then inc(d);
End;
Writeln('tong o cau a) la: ', sa);
Writeln('co ', d, ' so chia het cho 5');
Write('tong o cau c) la: ', sc);
Readln
End.