Bài 1
Begin
Write(`hello moto`) ;
Readln
End.
Bài 3
Var a:char ; b:real ; c:integer ;`
Begin
Write(`a = `) ;Readln(a) ;Write(a) ;
Write(`b = `) ;Readln(b) ;Write(b) ;
Write(`c = `) ;Readln(c) ;Write(c) ;
Readln
End.
Bài 5
Var a:real ;
Begin
Write(`a = `) ;Readln(a) ;
Write(a) ;
Readln
End.
Bài 7
Var a:real ;
Begin
a:=sqrt(3+sqrt(3+sqrt(3))) ;Writeln(a) ;
a:=1/(2+1/(2+1/2)) ;Writeln(a) ;
Readln
End.
Bài 9
Var x,a:integer ;
Begin
Write(`Nhap x: `) ;Readln(x) ;
a:=x*sqr(x)*sqr(x)*sqr(x) ;
Writeln(`Ket qua cua x7 la: `,a) ;
Readln
End.

Bài 11
Var a,b,c,tbc,tbn:real ;
Begin
Write(`Nhap a: `) ;Readln(a) ;
Write(`Nhap b: `) ;Readln(b) ;
Write(`Nhap c: `) ;Readln(c) ;
tbc:=(a+b+c)/3 ; Writeln(`Trung binh cong : `,tbc:0:2) ;
tbn:=ln(a*b*c)*exp(3);Writeln(`Trung binh nhan : `,tbn:0:2) ;
Readln
End.
Bài 13
Var a,b,c,d:real ;
Begin
Write(`Nhap a: `) ;Readln(a) ;
Write(`Nhap b: `) ;Readln(b) ;
Write(`Nhap c: `) ;Readln(c) ;
d:=sqr(a)-2*b+a*b/c ; Writeln(`a. `,d:0:3) ;
d:=(sqr(b)-4*a*c)/(2*a) ; Writeln(`b. `,d:0:3) ;
d:=3*a-b*sqr(b)-2*sqrt(c) ; Writeln(`c. `,d:0:3) ;
d:=sqrt(sqr(a)/b-4*a/(b*c)+1) ; Writeln(`d. `,d:0:3) ;
Readln
End.
Bài 15
Var s,r,v:real ;
Begin
Write(`Nhap ban kjnh cua hinh cau: `) ;Readln(r) ;
s:=4*pi*sqr(r) ;Writeln(`Dien tich hinh cau nay la: `,s:8:2) ;
v:=r*s/3 ; Writeln(`The tich hinh cau nay la: `,v:8:2) ;
Readln
End.
Bài 17
Var a,b,c,d,e,kq:integer ;
Begin
Write(`Nhap so nguyen 4 chu so: `) ;Readln(a) ;
b:=a div 1000 ;
c:=(a mod 1000)div 100 ;
d:=((a mod 1000)mod 100) div 10 ;
e:=((a mod 1000)mod 100) mod 10 ;
Writeln(`Chu so dau cua a la: `,b) ;
Writeln(`Chu so cuoi cua a la: `,e) ;
kq:=b+c+d+e ;
Writeln(`Tong cua 4 chu so cua a la: `,kq) ;
Readln ;
End.
Bài 19
Var hoten:string ; tuoi,toan,tin:integer ; dtb:real ;
Begin
Write(`Nhap ten cua SV nay: `) ;Readln(hoten) ;
Write(`Nhap tuoi cua SV nay: `) ;Readln(tuoi) ;
Write(`Nhap dtoan cua SV nay: `) ;Readln(toan) ;
Write(`Nhap dtin cua SV nay: `) ;Readln(tin) ;
dtb:=(toan*2+tin)/3 ;
Writeln(`Bang Diem cua `,hoten,`:`) ;
Writeln(tuoi,`tuoi`) ;
Writeln(`diem toan: `,toan,` diem`) ;
Writeln(`diem tin: `,tin,` diem`