pascal / 2 лаба / Program2

program yr;
uses crt;
var a1,b1,c1,d:real;f:boolean;
i:byte;
procedure kvad(a,b,c: real; var res:boolean);
begin
res:=sqr(b) - 4*a*c>=0;
end;
begin
for i:=1 to 3 do
Writeln('Введите элементы квадратного уравнения');
readln(a1,b1,c1);
kvad(a1,b1,c1,f);
if d<0 then writeln('Нет действительных корней') else
if d=0 then writeln('1 действительный корень') else
if d>0 then writeln('2 действительных корня');
begin
readln(a1,b1,c1);
kvad(a1,b1,c1,f);
writeln(i);
end;
readln
end.