viết chương trình nhập 2 số a và b nguyên kiểm tra nếu a>b nhập lại sau đó tính tổng a+b và tích a.b

uses crt;

var a, b : integer;

begin

clrscr;

write('Nhap hai so a, b : '); readln(a, b);

while a > b do

begin write('Nhap lai a, b : ');

readln(a, b); end;

writeln('Tong hai so = ', a + b);

writeln('Tich hai so = ', a * b);

readln

end.

uses crt;
var a,b:integer;
begin
   clrscr;
   a:=1; b:=0;
   while a>b do
   begin
      write('Nhap a: '); readln(a);
      write('Nhap b: '); readln(b);
   end;
   write('Tong la: ',a+b);
   writeln;
   write('Tich la: ',a*b);
   readln
end.