program asdf;

var

x1, x2, a, b, c, D: real;

begin

write("Please entera a value for a:");
readln(a);

write("Please enter a value for b:");
readln(b);

write("Please enter a value for c:");
readln(c);

D:=b*b - 4*a*c

if D<0 then
writeln("Nqma realni koreni")

else if a=0 then
begin
x1:=-c/b;
x2:=x1;
end

else
begin
x1:=(b-sqrt(D))/2*a;
x2:=(b+sqrt(D))/2*a;
end;

if x1=x2 then
writeln("Korenut na uravnenieto e x=", x1)
else
writeln("Korenite na uravnenieto sa x1=", x1, " i x2=", x2);
readln;
end.


Нямам компилатор и ме мързи да свалям, така че сигурно имам синтактични грешки, но семантиката ми се струва изрядна.