Составьте программу в PascalABC, которая печатает в первой строке два знака '& &' через один пробел, во второй – через два пробела '& &', в третьей - '& &' через три пробела, ..., в строке с номером 9 - & (через 9 пробелов) & .
Печать строки оформить через процедуру. Число строк вводить с клавиатуры.
// PascalABC.NET
procedure MadPrt(n: integer) := Writeln('&' + n * ' ' + '&');
begin
var n := ReadInteger('Сколько нужно строк?');
for var i := 1 to n do
MadPrt(i)
end.