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

Как ни странно, но программа простенькая)))

PascalABC.Net 3.2 - и только на этой версии!!!

begin
  var s1:=ReadlnString(Строка 1:);
  var s2:=ReadlnString(Строка 2:);
  if s1.Lengthgt;s2.Length then Swap(s1,s2);
  s1:=s1.Replace(!,*); s1.Println;
  s2.ToCharArray.Where(x-gt;Ord(x)gt;70).Println
end.