Кумир! написать программу, находящую количество корней уравнения (x-a)(x-b^2) = 0

Program chik;
var a,b:real;
begin
readln(a,b);
if(a=sqr(b))then writeln(1)else writeln(2);
end.