Pascal.Задана последовательность знаков, за которой следует точка (в саму

а что программка вывести должна? мы вводим числа пока число не будет одинаково ".", да? позже что?

вывести точку? вот прога тогда

программка обязана вывести написанный текст удалив из него все числа

а ввод заканчивается на точке?

в задании такового не сказано, все условия вверху

сколько знаков всего?

n?

да

Var  i,n : longint;  c   : array [1..100] of char;
begin 
  readln(n);
  for i:=1 to n do readln(c[i]);
  for i:=1 to n do
    if (c[i]lt;gt;'1')  and
       (c[i]lt;gt;'2') and
       (c[i]lt;gt;'3') and
       (c[i]lt;gt;'4') and
       (c[i]lt;gt;'5') and
       (c[i]lt;gt;'6') and
       (c[i]lt;gt;'7') and
       (c[i]lt;gt;'8') and
       (c[i]lt;gt;'9') and
       (c[i]lt;gt;'0')
     then writeln(c[i]);
end.