Ideone.com

fork download

uses
 crt;
var
 x:string;
begin
 clrscr;
 while not eof(input) do
 begin
    readln(x);
    writeln(x);
 end;
 writeln(x);
end.

Success #stdin #stdout 0.01s 296KB

stdin

abc
123

stdout

abc
123
123

https://ideone.com/hrAe3

language:

Pascal (fpc 3.0.4)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

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