Var st1,st2:string; i:integer;
begin
writeln('Введите строку:');
readln(st1);
st2:='';
for i:=1 to length(st1) do
if not(st1[i] in ['A'..'Z','a'..'z']) then st2:=st2+st1[i];
writeln(st2);
end.
Пример:
Введите строку:
Primer строки (слон, begin, end, кенгуру).
строки (слон, , , кенгуру).