with matrixok, text_io; use matrixok, text_io;
procedure Matr_HF is
begin
	Put_Line("Add meg egy matrix meretet (m,n), majd az elemeit:");
	declare
		x: MATRIX(1..2,1..2) := ((1.0,1.0),(1.0,1.0));
		y: MATRIX(5..6,8..9) := Beolvas;
	begin
		x := (x+x)*y;
		New_Line(5);
		Put_Line("Az eredmeny:");
		Kiir(x);
	end;
end Matr_HF;