Помогите написать программу на языке паскаль через блок схемы

Что уже сделал? Что не получается?

Qwen2.5-Plus
11:32 PM
Ниже представлена программа на языке Pascal , которая выполняет указанные действия: вводит значения n и m, затем изменяет их по правилу m := m - 2 и n := n * 2, пока m >= 6. После завершения цикла выводятся значения n и m.

 program ChangeNM; 
 
var 
  n, m: Integer; // Объявление переменных 
 
begin 
  writeln('Введите значение n:'); 
  readln(n); // Ввод значения n 
   
  writeln('Введите значение m:'); 
  readln(m); // Ввод значения m 
 
  // Цикл while для изменения значений n и m 
  while m >= 6 do 
  begin 
    m := m - 2; // Уменьшаем m на 2 
    n := n * 2; // Увеличиваем n в 2 раза 
  end; 
 
  // Вывод результатов 
  writeln('После выполнения операций:'); 
  writeln('n = ', n); 
  writeln('m = ', m); 
 
end. 

Но программа увы не верна...я ему говорю делать, потом если: Написать программу на языке Pascal: Ввести n, m Делать m:=m-2; n:=n*2; пока m >= 6 Вывести n, m

ПОПЫТКА 2:
Программа на языке Pascal по блок-схеме: Начало; ввод n, m; m:=m-2; n:=n*2; если не(m<6), то перейти после ввода n,m, а если m<6 то выполнить вывод переменных m,n; Конец

 program ChangeNM; 
 
var 
  n, m: Integer; // Объявление переменных 
 
begin 
  writeln('Введите значение n:'); 
  readln(n); // Ввод значения n 
   
  writeln('Введите значение m:'); 
  readln(m); // Ввод значения m 
 
  // Цикл repeat-until для изменения значений n и m 
  repeat 
    m := m - 2; // Уменьшаем m на 2 
    n := n * 2; // Увеличиваем n в 2 раза 
  until m < 6; // Повторяем, пока m не станет меньше 6 
 
  // Вывод результатов 
  writeln('После выполнения операций:'); 
  writeln('n = ', n); 
  writeln('m = ', m); 
 
end. 

Вроде норм...только вот типы для любых чисел бы, и надо заменить на
n, m: Real; // Объявление переменных