uses crt; var i,s,t,kt:longint; begin clrscr; write('Nhap tong, tich: ');readln(s,t); for i:=0 to s div 2 do if i*(s-i)=t then begin writeln('a= ',i,' b=',s-i); kt:=1; end; if kt=0 then writeln('Khong co'); readln end.
program bai_giai; uses crt; var denta,S,P:longint; begin clrscr; write('Nhap tong: '); readln(S); write('Nhap tich: '); readln(P); denta:=S*S-4*P; if denta<0 then writeln('Khong co gia tri nao cua a,b thoa man') else if denta=0 then writeln('a = b = ',S/2:0:2) else begin writeln('a = ',(S+sqrt(denta))/2:0:2); writeln('b = ',(S-sqrt(denta))/2:0:2); end; readln; end.