с информатикой, в файлах вся информация.

writeln('a[',i,']=',a[i]);

readln;

end.

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.

а) наименование товаров, цена за единицу товара, количество каждого товара

б) общая сумма покупки, сумма денег переданная продавцу

в) программа телепередач, название фильма

г) набор значений углов и сторон треугольника, должна быть известна хотя бы одна сторона треугольника и еще две величины(углы или стороны)

var a: array [1..10] of integer;

      i: integer;

begin

  for i: =1 to 10 do begin

  readln(a[i]);

  if a[i]< 0 then a[i]: =abs(a[i]);

  writeln(a[i]);

  end;

end.