Viết chương trình nhập vào 1 số nguyên dương n. Hay đoán xem có bao nhiêu số chia hết cho 3 và 5. Tính tổng các số đó

mk làm trên pascal nha vì mk ko bt lớp 11 học pascal hay C++ nên mk làm pascal vì mk bt mỗi pascal thôi

uses crt;

var  a,i,s,t:longint;

begin

      clrscr;

     writeln(‘hay nhap n:’);readln(n);

s:=0; t:=0;

for i:=1 to n do 

    if (i mod 3 =0) or ( i mod 5=0) then  begin

s:=s+1; t:=t +i;

end;

writeln(‘co tat ca ‘,s ,’ chu so ‘);

write (‘ tong la:’,t);

read

end.

bn thử xem có chạy đc không , nếu không thì bỏ lệnh s:=0 mà mk bôi đen đi