Решить в Pascal
Если D<0 то с= «корней нет»

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