Паскаль абс, номер 4 и 5

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 звезд и "Лучший ответ"!