viet chuong trinh pascal xuat ra ket qua cua bieu thuc B=5x+10. khi biet x co gia tri duoc nhap tu ban phim

uses crt;

  var x, B: real;

begin

  clrscr;

  write(‘Nhap x = ‘); readln(x);

  B:=5*x+10;

  writeln(‘Gia tri cua bieu thuc B = 5x + 10 la: ‘, B);

  readln

end.