procedure solution(k,y,z : real);
var
D,x1,x,x2:real;
begin
D:=y*y-4*k*z;
if D>0 then
begin
x1:=(-y+sqrt(D))/2*k;
x2:=(-y-sqrt(D))/2*k;
writeln('x1=',x1);
writeln('x2=',x2);
end
else if D=0 then
begin
x:=-1y/2*k;
writeln('x=',x);
end
else
writeln('Нет вещественных корней');
end;
var
a,b,c :real;
begin
writeln('Введите коэфиценты a,b,c');
read(a,b,c);
solution(a,b,c);
end.
