fork download 
  1. var
  2. s:string;
  3. BEGIN
  4. while s<>'|' do
  5.         begin
  6.         readln(s);
  7.         if s<>'|' then writeln(s);
  8.         end;
  9. END.
Success #stdin #stdout 0s 276KB
comments (?)
stdin 
1 5
3 9
111 555
|
stdout 
1 5
3 9
111 555
https://ideone.com/43xCHy
language:
Pascal (fpc 3.0.4)
created:
8 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!