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

1) program zz1;var s:string; // задаем переменную строкового типаi:integer; // задаем переменную целого типаbeginwrite(\' введите строку \');read(s); // вводим с клавиатуры строкуfor i:=1 to length(s) do // организуем цикл, в котором переберем все символы от первого до последнегоbeginif s[i] = \'И\' then s[i]:=\'%\'; // производим  заменуend;write(\'полученная строка = \', s);end.

2) program zz1;var s:string; // задаем переменную строкового типаi, k:integer; // задаем переменную целого типаbeginwrite(\' введите строку \');read(s); // вводим с клавиатуры строкуk:= length(s) div 2;delete(s, k+1, length(s)-k);write(\'полученная строка = \', s);end.