Пишет что write не известное имя вот прога program crossout_tg; var x, y, a, b, c, q, w, e: integer; f, m: real; begin writeln: ('1 фрагмент'); readln: (a); writeln: ('2 фрагмент'); readln: (b); writeln: ('3 фрагмент'); readln: (c); writeln: ('кол-во 1 фрагмента'); readln: (q); writeln: ('кол-во 2 фрагмента'); readln: (w); writeln: ('кол-во 3 фрагмента'); readln: (e); writeln: ('цена металла за 100ед.'); readln: (f); writeln: ('цена меди за 100ед.'); readln: (m); end.