Дан массив а, в котором хранится стоимость n товаров. весь товар подешевел на р%. сформировать массив в, в котором хранится новая стоимость товаров. вывести на экран в столбец номер товара, старая цена и новая цена. количество товара и цену товара ввести с клавиатуры. выручайте
var n, p, res, i:integer;
a: array [1..n] of real;
begin
readln(n)
readln(p)
p := p / 100
for i:= 1 to n do
begin
res := n * p;
writeln(res);
end;
end.