Решите задачу , используя необходимую подпрограмму.
Напишите программу, которая выведет на экран n символов X в указанном ниже порядке:
X
XX
XXX
...n
XXX
XX
X
Буду безумно благодарна
var i,n,j:integer;beginreadln (n);for i:=1 to n dobeginfor j:=1 to i do write ('X');writelnend;for i:=n downto 1 dobeginfor j:=1 to i do write ('X');writelnendend.