Помогите, пожалуйста, в Паскале. Составить программу, по которой компьютер находит произведение нечетных чисел, начиная

program by_XYCAK ; var a, b, c: char; s, k: integer; begin b := \'Д\'; c := \'Н\'; k := 2; repeat begin write(\'Продолжить вычисления? (Д/Н) \'); readln(a); if a = b then begin s := k + k; writeln(s); k:=k+2; end else if a = c then break; end; until FALSE;end.