Помогите пожалуйста написать программу на паскале турбо которая будет выводить в

Var a,b,c:integer; begin writeln('введите число'); readln(a); for b:=1 to a-1 do begin  writeln(a-b,' + ',b,' = ',a); end; end.