uses crt;

var a,b,tg,i,tong:integer;

function tinh(x,y:integer):integer;

begin

tg:=x mod y;

if tg=0 then tinh:=y

else tinh:=tinh(y,tg);

end;

BEGIN

clrscr;

write('Nhap a: ');

readln(a);

write('Nhap b: ');

readln(b);

tong:=1;

for i:=2 to abs(a+b) do

if (abs(a+b) mod i =0) then

tong:=tong+i;

writeln ('Tong 2 so la: ',a+b);

writeln('Hieu 2 so la: ',a-b);

writeln('Tich 2 so la: ',a*b);

writeln('Thuong 2 so la: ',a/b:0:4);

writeln('UCLN 2 so la: ',tinh(a,b));

writeln('Tong cac uoc cua ',a+b,' la: ',tong);

readln;

@S

Đáp án :

uses crt;

var a,b,tg,i,tong:integer;

function tinh(x,y:integer):integer;

begin

tg:=x mod y;

if tg=0 then tinh:=y

else tinh:=tinh(y,tg);

end;

BEGIN

clrscr;

write('Nhap a: ');

readln(a);

write('Nhap b: ');

readln(b);

tong:=1;

for i:=2 to abs(a+b) do

if (abs(a+b) mod i =0) then

tong:=tong+i;

writeln ('Tong 2 so la: ',a+b);

writeln('Hieu 2 so la: ',a-b);

writeln('Tich 2 so la: ',a*b);

writeln('Thuong 2 so la: ',a/b:0:4);

writeln('UCLN 2 so la: ',tinh(a,b));

writeln('Tong cac uoc cua ',a+b,' la: ',tong);

readln;

 Giải thích các bước giải:

Như trên :))