PascalABC.net помогите пожалуйста

program chisla;
var a,b,c,d: integer;
begin
readln(a);
readln(b);
if a+b>0 then
begin
c:=a-b;
writeln(c);
writeln(a,' ',b);
d := a * b;
writeln(b);
end
end.
в умножении выводит 2-е число
как решить?