Bài 1 :

uses crt;

var a, nam, thang: integer ;

begin

clrscr;

write('nhap so nguyen a :');readln(a);

nam := a div 12;

thang := a mod 12;

writeln(nam,' nam ', thang ,' thang ');

readln

end.

Bài 2 :

uses crt;
var a, b, c,  n : integer;
begin
clrscr;
write('nhap so co ba chu so :');readln(n);
a := n div 100;
b := (n mod 100) div 10;
c := (n mod 10 );

writeln('tong cac chu so la :', a+b+c);

readln

end.

B1:

uses crt;

var a,b,c:integer;

begin

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

b:= a div 12;

c:= (a mod 12) div 30;

writeln('a= ',b,' nam, ',c,' thang');

readln;

end.

B2:

uses crt;

var a,b,c,S:integer;

begin

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

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

write('nhap c:');readln(c);

S:=a+b+c;

writeln('S=',S);

readln;

end.