Câu 2

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if a>b then writeln(a)

else if a<b then writeln(b);

readln;

end.

Câu 3

uses crt;

var a:integer;

begin   

clrscr;     

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

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

readln;

end.

Câu 4

uses crt;
var a,b,c,max:integer
begin
clrscr;

write('nhap so thu nhat ='); readln(a);max:=a;

write('nhap so thu hai ='); readln(b);if max<b then max:=b;

write('nhap so thu ba ='); readln(c);if max<c then max:=c;
writeln('So lon nhat la: ',max);
readln;
end.

Câu 2:

program So_Sanh1;

uses crt;

var a,b:  real;

begin

          clrscr;

          write('nhap so thu nhat:  ');readln(a);

          write('nhap so thu hai:  ');readln(b);

          if a >b then readln(' so lon la :' ,a);

          if a<=b then readln(' so lon la :' ,b:10:2);

          readln

end.

Bài 3:giống bài 3 lúc trước tớ giải

Bài 4:

program so_nao_lon_nhat;

uses crt;

var:a,b,c:integer;

begin

clrscr;

writeln('moi ban nhap a:');

readln(a);

writeln('moi ban nhap b:');

readln(b);

writeln('moi ban nhap c');

readln(c);

a:=max;

if b>a then b=max;

if c>b then c=max;

writeln('so lon nhat la:' ,max);

readln;

end.