Запишите в тетрадь
программу без ошибок.
Исправьте ошибки
в программе
var t: string; k,i: interger;
begin;
redaln (t)
k:=0
for i:=1 to lenthg(t) do
if copy(t,i,1)=‘н’ then
k:=k+1;
writenl (‘количество букв
н= ’, k)
readln;
end