Nhập hai số a b viết chương trình con tổng của chúng có phải dương và chia hết cho 3 không? Viết rõ.

B1: Nhập 2 số

B2: t:=a+b

B3: Nếu t>0 thì viết là số dương ngược lại ghi không là số dương

B4: Nếu t mod 3=0 thì viết chia hết cho 3 ngược lại ghi không chia hết cho 3

B5: Kết thúc.

Chương trình:

program tong_ketqua;

uses crt;

var a,b:integer;

{--Chuong-trinh-con--}

procedure xuly(a,b:integer);

var t:integer;

begin

       t:=a+b;

       writeln('Tong la: ',t);

       if t>0 then writeln('Tong la so duong')

              else writeln('Tong khong phai so duong');

       if t mod 3=0 then write('Tong chia het cho 3')

              else write('Tong khong chia het cho 3');

end;

{---Chuong-trinh-chinh---}

BEGIN

       clrscr;

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

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

       xuly(a,b);

       readln;

end.

uses crt;
var a,b:longint;
procedure kt;
var s:longint;
begin
   s:=a+b;
   if (s>0)and(s mod 3=0) then 
      writeln('Tong cua chung la so duong va chia het cho 3') else
      writeln('Tong cua chung khong la so duong va chia het cho 3');
end; 
begin
clrscr;
   write('Nhap a: ');readln(a);
   write('Nhap b: ');readln(b);
   kt;
readln
end.