2 Задание, на паскале

pascal

Var s:string;

   i:integer;

Begin

       Writeln('Введите строку: ');

       Readln(s);

       i:=1;

       while i<=Length(s) do

         begin

          if s[i] in ['.',',','!','?'] then Delete(s,i,1);

          i:=i+1;

         end;

       Writeln('Результат: ', s);

End.