viết chương trình nhập từ bàn phím M số nguyên dương (M<=200).Đưa ra màn hình tổng các số chia hết cho 5 của dãy số đó (giá trị các phần tử nhỏ hơn hoặc bằng 5000)

program tong;

uses crt;

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

      m,i:byte;

      tong:longint;

begin

     clrscr;

     write('Nhap so luong phan tu M: ');   readln(m);

     tong:=0;

     for i:=1 to m do

          begin

               write('Phan tu thu ',i,': ');     readln(A[i]);

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

          end;

     write('Tong cac so chia het cho 5 cua day la: ',tong);

     readln;

end.

uses crt;
var m,i,t:longint; a:array[1..100000]of longint;
begin
clrscr;
    write('m=');readln(m);
    for i:=1 to m do
        begin
           write('a[',i,']=');readln(a[i]);
           if(a[i] mod 5=0)and(a[i]<=5000)then inc(t,a[i]);
        end;
    writeln('Tong cac so la boi cua 5: ',t);
readln;
end.