Код:
var
a,b,c,x1,x2,d:real;
procedure korni;
begin
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln ('Первый корень= ',x1,' Второй корень= ',x2);
end;
begin
write ('Enter a=');
readln (a);
write ('Enter b=');
readln (b);
write ('Enter c=');
readln (c);
d:=sqr(b)-4*a*c;
if d>=0 then
korni
else writeln ('Корней нет');
readln
end.