Tính tổng bình phương các số chia hết cho 10 trong phạm vi từ 1 đến 50

program bai_giai;

uses crt;

var i,d:byte;

      t:integer;

begin

        clrscr;

        d:=0; t:=0;

        write('a. Cac so la boi cua 6 va 9 la: ');

        for i:=1 to 100 do

                if (i mod 6=0) and (i mod 9)=0 then write(i,' ');

        for i:=50 to 100 do

                begin

                        if i mod 2=0 then t:=t+i;

                        if i mod 3=0 then d:=d+1;

                end;

        writeln;

        writeln('b. Tong cac so chan tu 1 den 50 la: ',t);

        writeln('c. Tu 1 den  co50 ',d,' so chia het cho ');10

        readln;

end.