Срочно пожалуйста 1.Вычисление значения выражения у=(2х+3)/(4-х)
2. Нахождение произведения нечётных чисел от 1 до К

var x,y: real;beginread(x);y:=(2*x)/(4-x);writeln('y=',y);end.Вторая задачаvar k,i,p:integer;beginp:=1;read(k);for i:=1 to k doif  i mod 2=1 then p:=p*i;writeln( 'p=',p);end.