program chuong_trinh_loi;

var a,b:integer;

begin

          write('nhap a');read(a);

          write('nhap b');read(b);

          if a>b then writeln(a) else write(b);

            readln

end.

* Viết lại chương trình hoàn chỉnh :

Program chuongtrinhloi;

Var a, b : integer;

Begin

Write('nhap a ');Readln(a);

Write('nhap b ');Readln(b);

if a > b then writeln(a) else writeln(b);

Readln

End.

Câu 5 :

uses crt;

var a : integer;

begin

clrscr;

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

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

else writeln(a,' la so le');

readln

end.