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

Question

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

Answer 1

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