Решите в pascal это уравнение

program dy;

var x,b,a,c: integer;

uses crt;

begin

clrscr;

writeln('введи число, потом второе, потом третье');

readln(b,a,c);

if (b> 0) and (a> 0) and (c> 0)

then writeln('решение есть х= ', ((-b+b*b-4*a*c)/2*a))

else writeln('решения нет')

end.