составить программу в Pascal
1)в строке , введенной с клавиатуры , все буквы И заменить на %

2)из строки, введенной с клавиатуры , удалить все символы ,начиная с середины.

1)vars:string;i:longint;beginread(s);for i:=1 to length(s) do if s[i]='И' then s[i]:='%';writeln(s);end.2)vars:string;l:longint;beginread(s);l:=length(s);delete(s, (l div 2)+1, l-(l div 2));writeln(s);end.