var s, s1: string;
begin
s1:='Informatika ';
writeln('Введите строку:');
readln(s);
insert(s1, s, 1);
writeln('Новая стркоа: ', s);
end.
var s:string;
i:integer;
begin
read(s);
for i:=length(s) downto 1 do
if (s[i]='а') then delete (s,i,1);
write('Новая строка: ',s);
end.
Если понравилось решение - ставь 5 звезд и "Лучший ответ"!