:) 1)вывести на экран натуральные не четные числа от 50 до 40. 2)найти произведение последовательных натуральных чисел от 7 до 12.

var

  n,p: integer;

begin

  // 1. вывод нечетных от 50 до 40

  n:=51;

  while n>=41 do begin 

    writeln(n);

    n:=n-2;

  end;

  // 2. Произведение от 7 до 12

  p:=1;

  n:=7;

  while n<=12 do begin

    p:= p* n;

    n :=n+1;

  end;

  writeln(p);

end.