Question

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

Answer 1

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