viết chương trình pascal đếm xem từ 1 đến 50 có bao nhiêu số chia hết cho 4

Program Dem_chia_het_cho_4;

Uses: Crt;

Var i, dem: Integer; {dem: Dem tat ca cac so tu 1 den 50 co bao nhieu so chia het cho 4}

Begin

          Clrscr;

          dem:= 0;

          {kiem tra}

          For i:=1 to 50 do If i mod 4= 0 do dem:= dem +1;

          Writeln(' Tu 1 den 50 co: ',dem,' so chia het cho 4');

          Writeln('Nhan Enter 2 lan de thoat nha!');

          Readln;

          Readln;

END.

Chúc bạn học tốt.

Program Hotboy;

Uses crt;

Var dem,i: byte ;

Begin

Clrscr;

For i:=1 to 50 do

If i mod 4 = 0 then inc(dem);

Write('co so so chia het cho 4 la',dem);

Readln

End.