{$mode objfpc}{$H+}
program ExtractRussianLowercase;
 
function IsLowercaseRussianLetter(c: Char): Boolean;
begin
  Result := (c >= 'а') and (c <= 'я') or (c = 'ё');
end;
 
var
  St: string;
  i: Integer;
begin
  St := 'Дан текст из 60 литер. Напечатать только строчные русские буквы, входящие в этот текст. ';
  for i := 1 to Length(St) do
    if IsLowercaseRussianLetter(St[i]) then
      Write(St[i]);
  Writeln;
end.
 

eyRtb2RlIG9iamZwY317JEgrfQpwcm9ncmFtIEV4dHJhY3RSdXNzaWFuTG93ZXJjYXNlOwoKZnVuY3Rpb24gSXNMb3dlcmNhc2VSdXNzaWFuTGV0dGVyKGM6IENoYXIpOiBCb29sZWFuOwpiZWdpbgogIFJlc3VsdCA6PSAoYyA+PSAn0LAnKSBhbmQgKGMgPD0gJ9GPJykgb3IgKGMgPSAn0ZEnKTsKZW5kOwoKdmFyCiAgU3Q6IHN0cmluZzsKICBpOiBJbnRlZ2VyOwpiZWdpbgogIFN0IDo9ICfQlNCw0L0g0YLQtdC60YHRgiDQuNC3IDYwINC70LjRgtC10YAuINCd0LDQv9C10YfQsNGC0LDRgtGMINGC0L7Qu9GM0LrQviDRgdGC0YDQvtGH0L3Ri9C1INGA0YPRgdGB0LrQuNC1INCx0YPQutCy0YssINCy0YXQvtC00Y/RidC40LUg0LIg0Y3RgtC+0YIg0YLQtdC60YHRgi4gJzsKICBmb3IgaSA6PSAxIHRvIExlbmd0aChTdCkgZG8KICAgIGlmIElzTG93ZXJjYXNlUnVzc2lhbkxldHRlcihTdFtpXSkgdGhlbgogICAgICBXcml0ZShTdFtpXSk7CiAgV3JpdGVsbjsKZW5kLgo=