Cho chương trình sau viết lại cho đúng

Cho chương trình sau viết lại cho đúng
Program  Tinh tich;
      Var a,b,T := integer
Begin 
      T = a*b;
       Writeln(' Tich tinh duoc la =',T)
        readln
End