Câu 1:

12*x*x - 2*x + 2

66*x*x*x - 20*x - 2*x + 3

(12*x*x - 2*x + 4) / 2*x + 3

Câu 3: 

program bai_3;

var hvt, lop, gvcn:char;

begin

clrscr;

write('HVT: ')' readln(hvt);

write('Lop: ')' readln(lop);

write('GVCN: ')' readln(gvcn);

readln;

end.

B1:

a, 12*x*x-2*x+2

b, 66*x*x*x-20*x*x-2*x+3

c, (12*x*x-2*x+4)/(2*x+3)

B2:

uses crt;

var A,B:integer;

begin

write('nhap ray thanh A:');readln(A);

write('nhap ray thanh B:');readln(B);

if A>B then writeln('thanh A dai hon') else if A<B then writeln('thanh B dai hon') else writeln('2 thanh dai bang nhau');

readln;

end.

B3:

uses crt;

var a,b,c:string

begin

write('nhap ho va ten:');readln(a);

write('nhap lop:');readln(b);

write('nhap ten gvcn:');readln(c);

writeln(a);

writeln(b);

writeln(c);

readln;

end.