uses crt;
var i,res:longint;
begin
clrscr;
write('Tong binh phuong cac so chia het cho 10: ');
for i := 1 to 50 do
 if (sqr(i) mod 10 = 0) then inc(res,i); writeln(res);
readln;
end. 

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.