Câu 1:

a) (15-4+3)/(2+3) - (18+5)/x + y

b) (sqr(10+x))/(3+y) - (18+5)/(y*y*y)

Câu 2:

Program tinhtong;
Var r, chuvi, dientich : real;
Const pi = 3.14;
Begin
Write('Nhap so ban kinh r = ');Readln(r);
chuvi := 2*pi*r; dientich := pi*r*r;
Writeln('chu vi hinh tron =', chuvi:8:3);
Writeln('dien tich hinh tron =', dientich:8:3);
Readln
end.

Câu 3:

program tien;
uses crt;
var m, n :integer;
    tt, ts : real;
    const v = 5000;
          b = 3500;
begin
clrscr;
write('nhap so luong quyen vo can mua :');readln(m);
write('nhap so luong cay but can mua :');readln(n);
tt := m*v + n*b;
ts := tt*90/100;
writeln('so tien phai tra ban dau la :', tt:0:2);
writeln('so tien phai tra luc sau la :', ts:0:2);
readln
end.