Запишите математическое выражения на паскаль. k=2x-в кубе/abc-3sdvw

Program Henry;

var

x, a, b, c, s, d, v, w, k: real;

begin

writeln ('Введите число: X') ;

readln (x) ;

writeln ('Введите число: A') ;

readln (a) ;

writeln ('Введите число: B') ;

readln (b) ;

writeln ('Введите число: C') ;

readln (c) ;

writeln ('Введите число: s') ;

readln (s) ;

writeln ('Введите число: d') ;

readln (d) ;

writeln ('Введите число: v') ;

readln (v) ;

writeln ('Введите число: w') ;

readln (w) ;

k: = (2 * (sqr (x) * x) / a*b*c) - (3*s*d*w) ;

writeln ('Ответ:', k) ;

end.