viết chương trình tính giá trị của biểu thức với x là số thực được nhập từ bàn phím A=(x*x+5)/3

uses crt;

var x,y:real;

begin

        clrscr;

        write(‘Nhap a ‘); readln(a);

        writeln(‘ A= ‘,(x*x+5)/3);

        readln;

end.