program 2De;

var n,i,S:real;

BEGIN;

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

s:=0;

for i:=1 to n do if i mod 3 = 0 then begin s:=s+i;Dem:=dem+1;end;

wrieln('S=',s);

readln

end;

giải thích

if i mod 3= 0 ( kiểu dữ liệu real ko thể sử dung dc mod)

Đem:=dem+1;(chưa khai báo biến den);

readln (thiếu ";" ở cuối câu)

(mong dc 5*+hay nhất)

$#QLinkVN$

program 2De;

`->` tên chương trình không được có số ở đầu câu

var n,i,S: real;

BEGIN

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

S:=0;

for i:=2 to n do if i mod 3 = 0

`->` kiểu dữ liệu của `i` là số thực (real) nên không dùng "mod " được

then begin S:=S+i;
        Dem:=dem+1;

`->` chưa khai báo biến "dem"

end;

writeln('S=',s);

readln

end.