[albo]

скорее

if d>= 0 then
 begin
 e:=[...]
 writeln(e);
 writeln(f);
 end
else
 Writeln('дискриминант отрицательный');