Bài 1:
program Bai1;
uses crt;
var a:Real;
BEGIN
clrscr;
write('Nhap vao diem trung binh: '); readln(a);
if a>6.0 then write('Bo me vat va nhung vui')
else write('Bo me buon lam');
END.
Bài 2:
program Bai2;
uses crt;
var a:integer;
BEGIN
clrscr;
write('Nhap vao nam sinh cua hoc sinh: '); readln(a);
if a-2020>18 then write('CO CAY CO THOC CO HOC CO CHU')
else write('HOC HANH VAT VA KET QUA NGOT BUI');
END.
Bài 3: Không hiểu đề bài cho lắm.
Bài 4:
program Bai4;
uses crt;
var i,sum,n:integer;
BEGIN
clrscr;
sum:=0;
write('Nhap vao n: '); readln(n);
for i:= 1 to n do sum := sum+i;
write('Tong: ',sum);
END.
