Mình làm từ phần khai báo luôn nhé!

Bài 1:

var

         a:integer;

begin

         write('Moi ban nhap so a: '); readln(a);

         if a mod 2=0 then writeln(a,' la so chan') else writeln(a,' la so le');

         readln;

end.

Bài 2:

var

         a,b:integer;

begin

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

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

         if a>b then writeln(a,' la so lon hon');

         if a<b then writeln(b,' la so lon hon');

         readln;

end.

                               Chúc bạn học tốt                      

program a;

uses crt;

var a:real;

begin

        write('nhap bien a');

        readln(a);

        amod2=0;

        write('a=',amod2);

end.