fork download
copy 
  1.  
  2. {$mode objfpc}{$H+} 
  3. uses SysUtils;
  4. var
  5.   s: UnicodeString;
  6.   i: integer;
  7. begin
  8.   s := 'KпRвTйLмQзXуNбVсFдWшZаEоYиUтHкJрGнSюBяOэDыCх';
  9.  
  10.   for i := 1 to Length(s) do
  11.     if (s[i] >= 'а') and (s[i] <= 'я') or (s[i] = 'ё') then
  12.       write(s[i]);
  13.   writeln;
  14. end.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
����������
https://ideone.com/uQc8lz
language:
Pascal (fpc 3.0.4)
created:
2 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!