Bài 1 :

program tinh;

uses crt;

var x, y, tb : real;

begin

clrscr;

write('nhap so x :');readln(x);

write('nhap so y :');readln(y);

tb := (x + y)/2;

writeln('trung binh cong hai so la :', tb:5:1);

readln

end.

Bài 2 :

program chan_le;

uses crt;

var a : integer;

begin

clrscr;

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

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

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

readln

end.

B1:

uses crt;

var x,y,z:integer;

begin

write('nhap x:');readln(x);

write('nhap y:');readln(y);

z:=(x+y)/2;

writeln('TBC cua x va y la:',z);

readln;

end.

B2:

uses crt;

var a:integer;

begin

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

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

readln;

end.