В Visual Studio(C#) шарю, в паскале не использовал. Program zadacha2;Var s:string; i,z,r,z1,r1:integer;Beginz1:=0;r1:=0;z:=0;r:=0;write('Введите строку(Вконце нужно поставить точку) : ');readln(s);i:=0;for i:=1 to Length(s) doBeginif not(s[i] in [' ',',','.',';',':','!','?']) then Begin if s[i]='*' then z:=z+1; if s[i]='#' then r:=r+1;EndelseBegin if z>0 then begin z1:=z1+1; End; if r>0 then begin r1:=r1+1; End;r:=0;z:=0;End;End;Write('Количество слов с * :', z1);Writeln;Write('Количество слов с # :', r1);Writeln;if z1=r1 thenWrite('Количество одинаковоe')elseWrite('HET');End.