ожидался идентефикатор пишет . уже не знаю что делать. где ошибка?
program zhachnoe_chslo;
uses crt;
var c,c1,c2,c3,d,k:integer;
begin
Writeln(' ââåäèòå ÷èñëî');
read(d);
k:=0;
For ñ:=100 to 999 do
begin
c1:=c div 100;
c2:=c div 10 mod 10;
c3:=c mod 10;
if (c1+c2+c3=d)
then
begin
writeln(c);
k:=k+1;
end;
end;
writeln('ñóììà öèôð 3-õ çíà÷íûõ ÷èñëåñë cîâïàäàåò ñ ÷èñëîì d è ðàâíà ÷èñëàì');
end.
program zhachnoe_chslo;
uses crt;
var c,c1,c2,c3,d,k:integer;
begin
Writeln(' веди число d');
read(d);
k:=0;
For ñ:=100 to 999 do
begin
c1:=c div 100;
c2:=c div 10 mod 10;
c3:=c mod 10;
if (c1+c2+c3=d)
then
begin
writeln(c);
k:=k+1;
end;
end;
writeln(' cevvf wbah 3-х чисел совпадает с число d и равна числам',k );
end.
program zhachnoe_chslo;
uses crt;
var c,c1,c2,c3,d,k:integer;
begin
Writeln(' веди число d');
read(d);
k:=0;
For c:=100 to 999 do
begin
c1:=c div 100;
c2:=c div 10 mod 10;
c3:=c mod 10;
if (c1+c2+c3=d)
then
begin
writeln(c);
k:=k+1;
end;
end;
writeln(' cevvf wbah 3-х чисел совпадает с число d и равна числам',k );
end.
всё спасибо )