Gửi bạn nha!

Xin hay nhất ạ!

@ngothithuyhang

uses crt;
var i,a,b,t,s:longint;
begin
    clrscr;
    readln( a,b );
    writeln('Tong = ', a+b );
    writeln('Hieu = ', a-b );
    writeln('Tich = ', a*b );
    writeln('Thuong = ', a/b:0:3 );
    a:=abs(a);
    b:=abs(b);
    t:=a+b;
    while a*b <> 0 do
        begin
            a:=a mod b;
            if a <> 0 then
                b:=b mod a;
        end;
    writeln('UCLN = ',a+b);
    s:=0;
    for i:=1 to trunc(sqrt(t)) do
        if t mod i = 0 then
           s:=s + i + (t div i);
    if frac(sqrt(t)) = 0 then
        s:=s - trunc(sqrt(t));
    writeln('Tong uoc so cua a + b = ',s);
readln;
end.