Што напичятает прагма если

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Текст:');
  var c:=ReadlnChar('Буква:');
  Writeln('Буква встречается ',s.Where(p->p=c).Count,' раз(а)')
end.

Пример
Текст: а роза упала на лапу азора
Буква: а
Буква встречается 8 раз(а)

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Текст:');
  var m:=s.MatchValues('(\w)\1{1}').Distinct;
  foreach var cc in m do s:=s.Replace(cc,cc[1]);
  s.Println
end.

Пример
Текст: стеклянный оловянный длинношеее искусство
стекляный оловяный длиношее искуство

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var age:=ReadInteger('Введите возраст:');
  var gender:=ReadInteger('Введите пол (1-М, 2-Ж):');
  if gender=1 then
    case age of
    0..13:Writeln('Мальчик');
    14..20:Writeln('Юноша');
    21..70:Writeln('Мужчина');
    else Writeln('Старец')
    end
  else
    case age of
    0..13:Writeln('Девочка');
    14..20:Writeln('Девушка');
    21..70:Writeln('Женщина');
    else Writeln('Старушка')
    end
end.