Решение квадратного уравнения

[Stan]

[HR][/HR]

Решение квадратного уравнения.​

program Untitled;
uses crt;
var
   a,b,c,d:integer;
   x,xx:real;
function lin(b,c:integer):real;
begin
     result:=((-1)*c)/b;
end;
function des(a,b,c:integer):integer;
begin
     result:=(b*b)-(4*a*c);
end;
procedure resh(a,b,c,d:integer;var x,xx:real);
begin
  x:=(((-1)*b)+sqrt(d))/2*a;
  xx:=(((-1)*b)-sqrt(d))/2*a;
end;
begin
  writeln('Enter coeffisents');
  readln (a, b, c);
  if a<>0 then
     begin
       d:=des(a,b,c);
       if d<0 then
          begin
               writeln('No operations');
          end
          else
          begin
               resh(a,b,c,d,x,xx);
               writeln('X1= ',x, ' X2= ',xx);
          end;
     end
     else
     begin
         x:=lin(b,c);
         writeln('X= ',x);
     end;
    readkey;
end.