Ideone.com

fork download

copy

var s, k: integer;
 
begin
	s := 1;
	for k := 2 to 8 do begin
		s :=s*k;
	end;
	writeln(s);
end.

Success #stdin #stdout 0s 5272KB

stdin

copy

Standard input is empty

stdout

copy

-25216

https://ideone.com/fxxeIi

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!