program RootsCalculation;
varD: Integer;
beginwriteln('Enter the value of D: ');readln(D);
if D < 0 thenwriteln('c = "No roots"')elsewriteln('c = ...'); // add calculation for roots here
end.
program RootsCalculation;
var
D: Integer;
begin
writeln('Enter the value of D: ');
readln(D);
if D < 0 then
writeln('c = "No roots"')
else
writeln('c = ...'); // add calculation for roots here
end.