Câu 1:

a)  2*x*x-3*x+1

b)  (a-b)/(c-d)+a

Câu 2:

Cú pháp:

      If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

Ví dụ: If a>b then max:=a else max:=b;

Câu 3:

Program baitap;

Uses crt;

Var a,b:real;

Begin

Clrscr;

Write('Nhap chieu dai hinh chu nhat:'); Readln(a);

Write('Nhap chieu rong hinh chu nhat:'); Readln(b);

Writeln('Dien tich hinh chu nhat:',a*b);

Readln

End.

Câu 1 : 

a) 

Cách 1 : a * x * x - 3 * x + 1

Cách 2 : 2 * sqr(x) - 3 * x + 1

b) (a - b) / (c - d) + a

Câu 2 : 

- Cú pháp điều kiện dạng đủ : if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

- Vd : if a > b then min := b else min := a;

Câu 3 :

uses crt;

var a, b, s : integer;

begin

clrscr;

write('nhap chieu dai va chieu rong : ');readln(a, b);

s := a * b;

writeln('dien tich hinh chu nhat : ', s);

readln

end.