Даны три квадратных уравнения

[Allexey]

Даны три квадратных уравнения (ax^2+bx+c=0 , bx^2+ax+c=0 , cx^2+ax+b=0). Определить процедуру, позволяющую распознавать наличие вещественных корней в квадратном уравнении.

procedure kvad(a, b, c: real);
var
D: real;
begin
D:=sqr(b) - 4*a*c;
if D > 0 then . . .
. . .
writeln (' Первое ур')
kvad(a,b,c)
(b,a,c)
(c,a,b)

Вот набросок, оформите полностью программу.

[Mad_Cat]

procedure RSqRoot(a, b, c: real;var res:boolean);
var
begin
res:= sqr(b) - 4*a*c>= 0;
end;

var a1,b1,c1:real;f:boolean;
i:byte;
begin
for i:=1 to 3 do
begin
readln(a1,b1,c1);
RSqRoot(a1,b1,c1,f);
writeln(f);
end;
end.