fork download

copy

var
	a,b:array[1..1000] of integer;
	pom,i,j,t:INTEGER;
BEGIN
	readln(t);
	for i:=1 to to do
		readln(a[i],b[i]);
	for i:=1 to t do
	begin
		pom:=a[i];
		for j:=1 to b[i]-1 do
			a[i]:=a[i]+(a[i]*pom);
		writeln(a[i]);
	end;
END.
 

Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(6,14) Error: Illegal expression
prog.pas(16) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty