Как создать программу ** языке Паскаля, чтобы я вводил слово, а она мне считала кол-во...

Question

Как создать программу на языке Паскаля, чтобы я вводил слово, а она мне считала кол-во букв к примеру "д" в слове.

Answer 1

Beginvar b:boolean; s:real;a:=0;writeln('slovo');readln(z);while not (eof(z)) do beginif z=d then a:=a+1;writeln(a);end;end.

Comments

пишет неизвестное имя "s"

---

и неизвестное имя "а" и "z" в общем программа не работает