Дана строка. Определить сколько в ней символов *, ; ,: - Pascal ABC

Формулировка задачи:

Помогите создать блок-схему и написать программу

Код к задаче: «Дана строка. Определить сколько в ней символов *, ; ,: - Pascal ABC»

textual
Var s : string;
    a : set of char;
    i, k: integer;
begin
s:='mn,.::::;uiJgu*,.';
a:=['*', ':', ';'];
k:=0;
for i:=1 to length(s) do
    begin
    if (s[i] in A) then inc(k);
    end;
Writeln(k);
Readln;
end.

12   голосов, оценка 4.417 из 5


СОХРАНИТЬ ССЫЛКУ