Bài 1
program bai_1;
uses crt;
var a, b, c: integer; //Bai 1
begin
clrscr;
// Bai 1
write('Hay nhap so nguyen thu nhat: ');
readln(a);
write('Hay nhap so nguyen thu hai: ');
readln(b);
c := a + b;
writeln('Tong hai so la: ', c);
readln;
end.
Bài 2
program bai_2;
var d, e: integer;
f: real; //Bai 2
begin
// Bai 2
clrscr;
write('Hay nhap so nguyen thu nhat: ');
readln(d);
write('Hay nhap so nguyen thu hai: ');
readln(e);
f := (d + e) / 2;
writeln('Trung binh cong hai so la: ', f:0:2);
readln;
end.
Bài 3
program bai_3;
var g: integer; //Bai 3
begin
// Bai 3
clrscr;
write('Hay nhap so nguyen: ');
readln(g);
if g mod 2 = 0 then
writeln('Day la so chan')
else
writeln('Day la so le');
readln;
end.
