Курсовая работа: Автоматизация решения систем линейных алгебраических уравнений
end
else
begin
readln (f1,n);
if Ioresult<>0 then
begin
writeln ('Ошибка чтения из файла! Для выхода в основное меню нажмите любую клавишу. ');
readkey;
exit;
end;
for i: =1 to n do
begin
for j: =1 to N do
begin
read (f1,a [i,j]);
if Ioresult<>0 then
begin
writeln ('Ошибка чтения из файла! Для выхода в основное меню нажмите любую клавишу. ');
readkey;
exit;
end;
end;
read (f1,b [i]);
if Ioresult<>0 then
begin
writeln ('Ошибка чтения из файла! Для выхода в основное меню нажмите любую клавишу. ');
readkey;
exit;
end;