пишет что write не известное имя вот прогаProgram Crossout_tg;var X, Y,

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