Program tinhx;

Uses crt; 

Var x, tinh:integer;

Begin

Clrscr; 

Writeln('Tinh x+2*x');

Writeln; 

Write('Nhap so x vao: ');

Readln(x);

Tinh:=(x+(2*x));

Readln; 

Writeln('x+2*x= ',tinh); 

Readln; 

End. 

Có sai sót thì xin lỗi :)

A: Khai báo biến không có dấu chấm

B:use cũng ko cần dấu chấm

C:begin ổn

D:end thiếu dấu chấm hoặc chấm phẩy 

Tui nghĩ là câu Begin (C)