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