Дана строка символов. удалить из нее первый знак препинания. Язык pascal.

Const a:array[1..4] of string=(!,?,.,,);
var s:string;
i,j,k:integer;
begin
readln(s);
for i:=1 to length(s) do begin
  for j:=1 to 4 do
  if s[i]=a[j] then k+=1;
  if k<>0 then break;
end;
delete(s,i,1);
writeln(s);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.