cảm ơn nhiều

mấy dòng cúi đọc chả hiểu j nhưng mình vẫn chép 

thank you so much

I LOVE YOU chụt chụt...

làm chả hỉu j

Program ltd;

ues crt;

var s,x:integer;

begin clrscr;

x:=1:s:=0

while(x<100)do

begin

s:=s+x

x:=x+2 

end;

writeln('tong s la' ,s);

readln;

end.