Решить в pascal если d< 0 то с= «корней нет»

Program df;
var d:integer;
begin
writeln('введите значения d');
read(d);
if d<0 then begin
writeln('корней нет');
end;
end.