56,1

Var a,b,c,T:integer;
Begin
  Writeln('nhap so thu nhat la a= '); Read(a);
  Writeln('nhap so thu hai la b= '); Read(b);
  Writeln('nhap so thu ba la c= '); Read(c);
  T:=a+b+c;
  If (T mod 6 = 0) and (T mod 9 = 0) then writeln('tong cua 3 so chia het cho 6 va 9') else
  writeln('tong cua 3 so khong chia het cho 6 va 9');
  Readln;
End.
TH nếu chia hết cho 9 hoặc 6 thì thay and thành or và sửa lại phần sau

Var a,b,T:integer;
Begin
  Writeln('nhap a= '); Read(a);
  If a<100 then
    begin
      b:= a;
      T:= a mod 10; a:=a div 10;
      T:= T + a mod 10;
      a:= a div 10;
      T:= T + a div 10;    
    end else writeln('vui long nhap so co hai chu so');
  Writeln('tong cac chu so cua ', b , ' la ', T);
  Readln;
End.

Var a,b,c:real;
Begin
  Writeln('nhap canh a= '); Read(a);
  Writeln('nhap canh b= '); Read(b);
  Writeln('nhap canh c= '); Read(c);
  If (a=b) or (b=c) or (a=c) then writeln('tam giac tren la tam giac can') else writeln('khong phai
  la 3 canh cua tam giac can');
  Readln;
End.

Var a,b,S:real;
Begin
  Writeln('nhap chieu dai la a= ') Readln(a);
  Writeln('nhap chieu rong la b= ') Readln(b);
  S:=a*b;
  Writeln('Dien tich hinh chu nhat la S= ', S:10:2);
  Readln;
End.
  

1) If a>5 then a:=b;
2) If a<6 then a:=a+1;
3) If a< >5 then a:=5;
4) If a<10 then a:=a+1 else a:=a-1;
5) If a<b then write('a') else write('b');  

Var Pi,S,P,d,r:real;
Begin
  Pi:=3.14;
  Writeln('duong kinh cua hinh tron la d= '); readln(d);
  r:=d/2;
  Writeln('ban kinh cua hinh tron la r= ', r:10:2);
  S:=(Pi*r*r)/2;
  Writeln('dien tich hinh ban nguyet la ', S:10:2);
  P:=(Pi*d)/2;
  Writeln('chu vi hinh ban nguyet la ', P:10:2);
  Readln;
End.

Var M,a,b:real;
Begin
  Writeln('nhap a la: '); Readln(a);
  Writeln('nhap b la: '); Readln(b);
  M:=a+b/a*a - b*b;
  Writeln(' Vay M = ', M:10:2);
  Readln;
End.

4335:54=80,3
9302:32=291
5205:65= 80,1
3983:29=137,3

25,006,101 (tại bạn không ghi mấy trăm nên mình cho 100 nha)

Máy tính của mình là Casio fx-580VNX