$#QLinkVN$

Chương trình:

program QLinkVN;
uses crt;
var dem,i: integer;
begin clrscr;
writeln('Cac so chia het cho ca 2 va 7 la: ');
for i:=1 to 100 do 
if (i mod 2=0) and (i mod 7=0) then
begin 
write(i:3);
dem:=dem+1;
end;
writeln;
writeln('So luong cac so chia het cho ca 2 va 7 la: ',dem);
readln end.

uses crt;

var a, d : integer;

begin

clrscr;

d := 0;

writeln('Cac so chia het cho 2 va 7 tu 1 - 100 : ');

for a := 1 to 100 do

    if (a mod 2 = 0) and (a mod 7 = 0) then

        begin

            write(a,' ');

            d := d + 1;

        end;

writeln; write('Co ', d ,' so chia het cho 2 va 7');

readln

end.