составить программу вычисления суммы мест, на которых в строке, введенной с клавиатуры, стоят согласные буквы. Например в 'строке' сумма мест согласных букв равняется 1+2+3+5+=11

var s,g:string;sum:integer;beging:='бвгджзйклмнпрстфхцчшщБВГДЖЗЙКЛМНПРСТФХЦЧШЩ';read(s);sum:=0;for var i:=1 to length(s) doif (pos(s[i],g)>0) then sum:= sum+i; writeln(sum);end.//ABC Pascal