Hello all,

program expression;
var i,j:integer;

begin
readln(j);
writeln('0');
for i := 1 to j do begin
writeln('X');
writeln('*');
writeln(i);
writeln('+');
end;
end.

This is my code but i keep getting WA. it gives the correct output so
i don't understand y my code is wrong. Can anyone help me debug my
program or tell me what is wrong with the logic?

Alternatively, if u have AC this question, pls post the solution here.

Thanks a lot