Đây là bài của Trường THCS Chu Văn An

lớp 8A4

program nguyenminhien;

uses crt;

var x:integer;

begin

clrscr;

writeln('nhap x=');

readln(x);

writeln(x+2*x:0:2);

readln;

end.

tui nghĩ là hơi đúng với đề bài,nếu sai mong các bạn xem thông cảm giùm mình.