Составить программу нахождения значения выражения: к=2х 3 -5х 2+х-6, если значение х вводится с клавиатуры.

vark,x:integer;Beginreadln(x);k:=2*x;writeln('2*x = ',k);k:=3-(5*x);writeln('3-(5*x)= ',k);k:=2+x-6;writeln('2+x-6=',k);End.