Элементарная задача по процедурах - Turbo Pascal - Ответ 2225444

uses crt;
const n=2;
type array2=array[1..n,1..3]of real;
     array1=array[1..n,1..2]of string;
var m:array2; m1:array1;
    i,j,k:integer; tmp,d:real;
 
function korni(a1,b1,d1:real;fl:byte):real;
begin
     if fl = 1 then
        korni:=(-1)*(b1-d1)/2*a1
     else
         korni:=(-1)*(b1+d1)/2*a1;
end;
 
begin
clrscr;
{vvod}
for i:=1 to n do
begin
     writeln('Vvedite nabor #',i);
     for j:=1 to 3 do
     begin
          readln(m[i,j]);
     end;
end;
{reshenie}
for i:=1 to n do
begin
     tmp:=sqr(m[i,2])-4*m[i,1]*m[i,3];
     if tmp>=0 then
     begin
          d:=sqrt({}tmp){};
          str(korni(m[i,1],m[i,2],d,2):5:3,m1[i,1]);
          str(korni(m[i,1],m[i,2],d,1):5:3,m1[i,2]);
     end;
     if tmp<0 then
     begin
          m1[i,1]:='net kornei';
          m1[i,2]:='net kornei';
     end;
end;
{vyvod}
for i:=1 to n do
begin
     for j:=1 to 2 do
     begin
          write(m1[i,j],' ');
     end;
     writeln;
end;
readln;
end.

uses crt;
var i,j,n:integer;
    a:array[1..100,1..3]of real;
 
procedure korni(a,b,c:real;i1:integer);
var d:real;
begin
writeln('Nabor #',i1);
d:=sqr(b)-4*a*c;
if d>0 then
begin
writeln('x1=',(-1)*(b-sqrt(d))/2*a:5:3);
writeln('x2=',(-1)*(b+sqrt(d))/2*a:5:3);
end;
if d=0 then
writeln('x1=x2=',(-1)*(b-sqrt(d))/2*a:5:3);
if d<0 then
writeln('Kornei net');
end;
 
begin
clrscr;
write('Vvedite kol-vo naborov=');readln(n);
for i:=1 to n do
begin
writeln('Nabor #',i);
for j:=1 to 3 do
readln(a[i,j]);
end;
 
for i:=1 to n do
korni(a[i,1],a[i,2],a[i,3],i);
 
readln;
end.