Напишите программу на языке ПаскальABC для задания 3,4 . Тема ,,Перебор в строковых велечинах " . ​

PascalABC.NET

Задание 3:

### RS.Split(' ').Sel(w → w[^1] in ',!?.' ? w[:^1]+'сла'+w[^1] : w+'сла').Pr

Задание 4:

###var lat := 'shh sh zh ch je jo ju ja a b v g d e z i j k l m n o p r s t u f h x c w " y '' q'.Split(' ');var rus := 'щ ш ж ч е ё ю я а б в г д е з и й к л м н о п р с т у ф х х ц ш ъ ы ь э'.Split(' ');var s := RS;lat.ForEach((c,i) → begin  s := s.Replace(c, rus[i]);  s := s.Replace(c.ToUpper, rus[i].ToUpper)end);s.Pr