Программа вводит две строки. Из более длинной строки программа выводит все символы, коды которых >70. В короткой строке заменяет все «!» знаки на «*» и выводит короткую строку на экран.

Как ни странно, но программа простенькая)))PascalABC.Net 3.2 - и только на этой версии!!!begin  var s1:=ReadlnString('Строка 1:');  var s2:=ReadlnString('Строка 2:');  if s1.Length>s2.Length then Swap(s1,s2);  s1:=s1.Replace('!','*'); s1.Println;  s2.ToCharArray.Where(x->Ord(x)>70).Printlnend.