uses crt;

var a, b, c : integer;

begin

clrscr;

write('nhap ba so a, b, c :');readln(a, b, c);

if 100 mod (a + b + c) = 0 then writeln('100 chia hết cho a + b + c')

else writeln('100 không chia hết cho a + b + c');

writeln('100 / (a + b + c) = ', (100 / (a + b + c)):3:2);

writeln('(a + b + c) / 100 = ', ((a + b + c) / 100):3:2);

readln

end.

Uses crt;
Var 
    a,b,c: integer;
Begin
    clrscr;
    write('Nhap so a: '); readln(a);
    write('Nhap so b: '); readln(b);
    write('Nhap so c: '); readln(c);
    if 100 mod (a+b+c)=0 then writeln('100 chia hết cho ',a,'+',b,'+',c)
    else writeln('100 khong chia hết cho ',a,'+',b,'+',c);
    writeln('100/(',a,'+',b,'+',c,') = ',(100/(a+b+c)):0:2);
    writeln('(',a,'+',b,'+',c,')/100 = ',((a+b+c)/100):0:2);
    readln;
End.