Ответы
Ответ дал:
0
var
s: string;
begin
write('Введите строчку: ');
readln(s);
while Pos('а', s) > 0 do
Delete(s, Pos('а', s), 1);
writeln('Полученная строчка = ', s);
readln;
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад