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

Question

Кумир!

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

Answer 1

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