Viết chương trình Pascal đầy đủ nhập vào hai số nguyên a, b. in ra màn hình hai số nguyên vừa nhập. Sau đó in ra màn hình hai số theo thứ tự giảm dần nếu 2 số nguyên đó chẵn

program tinh;

uses crt;

var a, b : integer;

begin

clrscr;

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

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

writeln('gia tri so nguyen a la :', a);

writeln('gia tri so nguyen b la :', b);

if ((a mod 2 = 0) and (b mod 2 = 0)) then

begin

if (a > b) then writeln('thu tu giam gian hai so la :', a ,' ,', b);

if (a < b) then writeln('thu tu giam gian hai so la :', b ,' ,', a);

end;

readln

end.