code

program baitap;

uses crt;

var a,b,t:longint;

begin

write('nhap a,b=');

read(a,b);

if (a+b) div 7= 6 then writeln('chia het') else writeln('ko chia het');

t:= (a+b) div 7;

write('(a+b) div 7 =',t);

readln;

readln;

end.

Chú thích: Mình không rõ a, b là số nguyên hay số thực nên để là số nguyên nha

uses crt;

var a,b,kq:integer;

begin

clrscr;

    Write ('Nhap a: '); readln (a);

    Write ('Nhap b: '); readln (b);

          kq:=a+b div 7; //div dung de lay phan nguyen

           Write ('(',a,' + ',b,')',' chia 7 bang ',kq);

             if kq=6 then write ('Phan nguyen cua ','(',a,' + ',b,')',' chia 7',' bang 6')

             else write ('Phan nguyen cua ','(',a,' + ',b,')',' chia 7',' khong bang 6');

readln;

end.