ЛАБОРАТОРНАЯ РАБОТА №1
Дана непустая последовательность символов. Среди символов последовательности могут встречаться буквы латинского алфавита, цифры и знаки препинания. С использованием множеств удалить из последовательности встречающиеся в ней знаки препинания.

Код:
program lab1;
var c:string;
a,i:integer;
st:set of ','..'.';
Begin
  write('Vvedite posledovatelnost ');
  readln(c);
a:=length(c);
st:=['.',':',';',',','!'];
  for i:=1 to a do
  if not (c[i] in st) then write (c[i]);
  readln;
  End.