Kiểm tra a >0 hay ko, nếu lớn hơn thì in ra a và hạ xuống 1 đơn vị

program kiem_tra;

uses crt;

var a:integer;

begin

     clrscr;

     write(‘Nhap a: ‘);   readln(n);

     if a>0 then 

          begin

               writeln(a,’>0′);

               write(‘Sau khi giam 1 don vi la: ‘,a-1);

          end

     else write(a,'<0′);

     readln;

end.