Пишет что write не известное имя вот прога Program Crossout_tg; var X, Y, a, b, c, q, w,...

Question

Пишет что 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.

Answer 1

нужно просто убрать двоеточия)

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.

Comments

где

---

после процедур writeln,readln до скобок

---

выделяется первая процедура

---

скопируйте мой код

---

спасиб

---

пожалуйста)