2. Напечатать текст, удалив из него все цифры. Текст заканчивается точкой.

var s1,s2:string;i:integer;beginwriteln('Введите текст:');readln(s1);s2:='';for i:=1 to length(s1) do if (s1[i]<'0')or(s1[i]>'9') then s2:=s2+s1[i];writeln(s2);end.Пример:Введите текст:В два ряда дома стоят – 10, 20, 100 подряд.В два ряда дома стоят – , ,  подряд.