Блок-схема к программе

var
  MyArr:array[1..200,1..5] of real;
  i,j,m:integer;
  f:text;
  t:real;
procedure Roots(var a,b,c:real; var  x1,x2 : real);
var d:real;
begin
  d:=b*b-4*a*c;
  if d<0 then
    begin
      x1:=0;
      x2:=0;
    end
         else
           if c<>0 then
             begin
               x1:=(-b+sqrt(d))/(2*c);
               x2:=(-b-sqrt(d))/(2*c);
             end
                   else
                     begin
                       if a<>0 then
                         begin
                           x1:=-b/a;
                           x2:=x1;
                         end
                               else
                                 begin
                                   x1:=0;
                                   x2:=0;
                                 end;
                     end;
end;
BEGIN
  write('M = ');
  readln(m);
  assign(f,'text.txt');
  reset(f);
  for i:=1 to m do
    for j:=1 to 3 do
      begin
        read(f,t);
        myarr[i,j]:=t;
      end;
  for i:=1 to m do
    Roots(myarr[i,1],myarr[i,2],myarr[i,3],myarr[i,4],myarr[i,5]);
  for i:=1 to m do
   begin
     for j:=1 to 5 do
       write(myarr[i,j]:12:3);
     writeln;
   end;
   readln;
   readln;
end.