Написать программу на автокоде для вычисления значения х по формуле: х=а^2+3*в^2-18*а*с

Program a;
var x,a,b,c: real;
begin
write('x,a,b,c = ?');
read(x,a,b,c);
x:=exp((a)*2)+3*exp((b)*2)-18*a*c;
writeln('x=',x);
end.
(Паскаль)