program bt;
uses crt;
var a,b,i,d,e,c: integer;
begin
clrscr;
writeln('nhap hai so a,b: '); readln(a,b);
if (a>b) then begin
a:= c;
b:= a;
a:= c; end;
d:= 0;
for i:= a to b do begin
for e:= 2 to b do begin
if (i=e*e) then d:= d+1; end; end;
writeln('trong khonga tu ',a,' den ',b,' co ',d,' so chinh phuong');
readln
end.

mk sửa bài trên nhé!
bài trên mk làm sai một chỗ!
bài sửa ở dưới:
program bt;
uses crt;
var a,b,i,j,e,kd,: integer;
begin
clrscr;
writeln('nhap so a b: '); readln(a,b);
if (a<b) then begin
for i:= a to b do begin
for e:= 2 to b do begin
if (i=e*e) then d:= d+1; end; end;
writeln('trong doan tu ',a,' den ',b,' co ',d,'so chinh phuong'); end;
if (a>b) then begin
for j:= b to a do begin
for k:= 2 to a do begin
if (j=k*k) then d:= d+1; end; end;
writeln('trong doan tu ',a,' den ',b,' so ',d,' so chinh phuong');
readln
end.
cho mk 5 sao nhé! thanks nhìu!