fork download

copy

j,t,i,j,l1,l2,c:integer;
a,b:string;
begin
readln(t);
 for i:=1 to t do
 begin
 	l1:=0;
 	l2:=0;
 	readln(a,b);
 	l1:=l1+length(a);
 	l2:=l2+length(b);
 	if (l1>l2) then (c:=c+l2);
 	if (l1<l2) then (c:=c+l1);
	if (l1=l2) then (c:=c+l1);
	for j:=1 to c do
        begin
		if l1 mod 2=1 then writeln(a) else writeln(b);
	end;
 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
Fatal: Syntax error, "BEGIN" expected but "identifier J" found
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