Câu 2:

Var a,b : byte;              //Phải là dấu : không phải dấu =

      c: real;                  //Ở dưới dán C bằng căn bậc 2 => C phải là số thực
Begin
        a:=20;
        b:=a*5;              //Dấu gán là := chứ không phải =
        c:=sqrt(b)+15*a;
        Write('Gia tri cua c la: ',c:10:2);     //Dấu : phải được đặt trong nháy, và C là số thực nên                                                                      phải rút gọn số
        Readln
End.

Câu 3:

Program BTT;
Uses crt;
Var a,s: int64;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        s:=sqr(a)*a;
        Write(a,'^3 = ',s);
        Readln
End.

Câu 4:

Program BTT;
Uses crt;
Var a,b: int64;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        If a>b then Write('Tong la: ',a+b);
        If a<b then Write('Tich la: ',a*b);
        Readln
End.

Câu 5:

PROGRAM Bai_5;
VAR
    N,I,S: Integer;
BEGIN
   Write('Nhap N'); readln(N);
   s:=0;
   For i:=1 to n do
        If i mod 2 = 0 then
                s:=s+i;
   Write('Tong la',S);
   Readln
END.