Дано действительное x.составить программу с которой определить является ли это число корнем уравнения 15x-10=0

Uses crt;
var x:integer;
begin
readln(x);
if 15*x-10=0 then writeln('Является') else writeln('Не является');
end.