[PASCAL] Istruzione "case...of" non supporta l'operatore ">"

[sebaldar]

devi usare

if D > 0 then begin
...
end
else if D = 0 then begin
...
end
else begin
...
end;