Составьте программу, которая определяет количество символов ‘!’ в тексте

var s:string; i,k:integer;beginwriteln('Введите строку');readln(s);k:=0;for i:=1 to length(s) do if s[i]='!' then k:=k+1;writeln('k=',k);end.