посчитайте плиз перевести код на СИ. varA:set of char;B:set of char;t:char;x:integer;s:string;beginwriteln('Введите последовательность символов');readln(s);B:=[ ];A:=['0'. . '9','. ',',',':',';',' ','?','"'];for x := 1 to length(s) doif s[x] in A then include (B,s[x]);Writeln('Множество знаков препинания и цифр из этой последовательности: ');for t := #0 to #255 doif t in B then write(t, ' ');end