Mấy bạn giúp mik nha: nêu các bước giải bài toán nhập vào 2 số a và b nếu a<b thì kết quả tính tổng, hiệu, tích, của hai số a và b ngược lại hiện kết quả phét chia lấy phần nguyên và phét chia lấy phần dư của số a cho số b
uses crt; var a,b:longint; begin clrscr; write('a='); readln(a); write('b='); readln(b); If a<b then begin Writeln('Tong:',a+b); Writeln('Hieu:',b-a); Writeln('Tich:',b*a); end else begin Writeln(a div b); Writeln(a mod b); end; readln end.