Ideone.com

fork download

copy

program ideone;
var a,d,k,c,p,i:integer;
begin
	readln(a,d,k);
	c:=0;
	p:=a;
	for i:=1 to k do
	begin
	    c:=c+p;
	    p:=p+d
	end;
writeln(c)
end.

Success #stdin #stdout 0s 9128KB

stdin

copy

5
1
4

stdout

copy

https://ideone.com/rjn8if

language:

Pascal (gpc 20070904)

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!