Пишет что 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.
нужно просто убрать двоеточия)
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.