Ideone.com

fork download

copy

program bilanganbulatpositifgenap;
var 
n:longint;
begin
	readln(n);
	if n>0 then begin
		if n mod 2=0 then begin 
			writeln(n);
		end;
	end;
end.

Success #stdin #stdout 0s 328KB

stdin

copy

Standard input is empty

stdout

copy

Standard output is empty

https://ideone.com/Q2sjlu

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!