program dem_soluong;

uses crt;

var A:array[1..1000] of integer;

      n,i,dc,dl,d5:integer;

begin

      clrscr;

      write('Nhap n: ');  readln(n);

      dc:=0;  dl:=0;  d5:=0;

      for i:=1 to n do

            begin

                  write('Nhap so thu ',i,': ');  readln(A[i]);

                  if A[i] mod 2=0 then dc:=dc+1 else dl:=dl+1;

                  if A[i] mod 5=0 then d5:=d5+1;

            end;

      writeln('So luong cac phan tu co gia tri chan la: ',dc);

      writeln('So luong cac phan tu co gia tri le la: ',dl);

      writeln('So luong cac phan tu chia het cho 5 la: ',d5);

      readln;

end.

#include<fstream>

using namespace std;

#define fi "004DS.INP"

#define fo "004DS.OUT"

fstream f;

int a, b

int main(){

f.open (fi, ios::in);

f >> a >>b;

f.close ();

f.open (fo, ios::out);

f << (a-b)/5+1

f.close();

return 0; }