Bài 1: Viết chương trình nhập điểm trung bình môn Toán của 2 bạn Hoa và Lan, in ra màn hình kết quả so sánh điểm trung bình của 2 bạn.

uses crt;

var lan,hoa: real;

begin

clrscr;

write (‘nhap diem trung binh cua ban Lan: ‘);  readln (lan);

write (‘nhap diem trung binh cua ban Hoa: ‘);  readln (hoa);

if lan>hoa then writeln(‘diem trung binh cua lan lon hoa’);

if lan<hoa then writeln(‘diem trung binh cua lan be hoa’);

if lan=hoa then writeln(‘diem trung binh cua lan bang hoa’);

readln;

end.