uses crt; var a: array[1..3] of integer; n,i,j: integer; begin clrscr; write ('nhap n: '); readln (n); for i:=1 to n do if 3*i+3=n then begin a[1]:=i; a[2]:=i+1; a[3]:=i+2; end; if (a[1]<>0) and (a[2]<>0) and (a[3]<>0) then begin write (n,'='); for i:=1 to 3 do if i<3 then write (a[i],'+') else write (a[i]); end else write ('khong co'); readln; end.
program Hello; uses crt; var a,b,c,n:longint; begin readln(n); for a:= 1 to n div 2 do begin b:= a + 1; c:= a + 2; if a + b + c = n then begin writeln(a, ' ', b, ' ', c); n:= -1; break; end; end; if n > -1 then writeln('Khong co ba so thoa man.'); readln; end.
