fork download
copy 
  1. const 
  2.   q = ['B','C','D','F','G','H','J','K','L','M','N','P','Q','R','S','T','V','W','X','Y','Z',
  3.        'b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','y','z'];
  4. var
  5.   s: set of char;
  6.   c: char;
  7. begin
  8.   s := [];
  9.   read(c);
  10.   while c <> '.' do
  11.   begin
  12.     if c in q then
  13.       s := s + [c];
  14.     read(c);
  15.   end;
  16.   for c := 'A' to 'z' do
  17.     if c in s then
  18.       write(c);
  19. end.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
hello.
stdout
copy 
hl
https://ideone.com/4X0xJS
language:
Pascal (fpc 3.0.4)
created:
10 years 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!