Bài 1 :

uses crt;

var ab, am : integer;

begin

clrscr;

write('nhap do dai doan AB :');readln(ab);

write('nhap do dai doan AM :');readln(am);

if am = ab/2 then writeln('M la trung diem AB')

else writeln('M khong la trung diem AB');

readln

end.

Bài 2 :

uses crt;

var dn, dv, t  : real;

begin

clrscr;

write('nhap diem noi :');readln(dn);

write('nhap diem viet :');readln(dv);

t := dn + dv;

if t >= 14 then writeln('Lop 6.1');

if (t < 14) and (t >= 10) then write('Lop 6.2');

if (t < 10 ) then writeln('Lop 6.3');

readln

end.

Bai 1:

uses crt;

var ab,am:integer;

begin

clrscr;

write('nhap do dai AB: ');readln(ab);

write('nhap do dai AM: ');readln(am);

if (am = ab/2) then write('M la trung diem cua doan thang AB')

else write('M khong phai la trung diem cua doan thang AB');

readln;

end.

Bai 2:

uses crt;

var noi,viet,s:integer;

begin

clrscr;

write('nhap diem viet: ');readln(viet);

write('nhap diem noi: ');readln(noi);

s:=viet+noi;

if (s >= 14) then write('vao lop 6.1')

else if (s >= 10) then write('vao lop 6.2')

else write('vao lop 6.3');

readln;

end.