Дана строка определить сколько в ней *:;

Var
  i,x,y,z:integer;
  s:string;
begin
readln(s);
for i:=1 to length(s) do
  begin
  if s[i]=* then x:=x+1;
  if s[i]=: then y:=y+1;
  if s[i]=; then z:=z+1;
  end;
writeln(* ,x);
writeln(: ,y);
writeln(; ,z);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.