Контрольная работа: Выражения и условный оператор IF. Операторы циклов. Массивы и подпрограммы

type

matrix=array [1..10, 1..10] of real;

vector=array [1..10] of real;

var

m:matrix ;

v:vector ;

n:integer ;

procedure input_matrix (var m:matrix ; var n:integer );

var

p1,p2,a,b:real ;

input:boolean ;

i,j:integer ;

begin

input:=false ;

repeat

writeln ('Введите размер квадратной матрицы n');

writeln ('не менее 2 и не более 10:');

readln (n);

if (n<2) or (n>10) then

begin

writeln (' Вы ввели неправильный размер матрицы,');

writeln ('n должно быть не менее 2 и не более 10.');

end

else

begin

input:=true ;

end ;

until input;

writeln ('Введителевую a иправую b границы ');