Составьте для блок схемы программу на Паскале

 program FlowchartProgram; 
 
var 
  x, y: integer; 
 
begin 
  // Initialize variables x and y 
  writeln('Enter the value for x:'); 
  readln(x); 
  writeln('Enter the value for y:'); 
  readln(y); 
 
  // Main loop 
  while x <= y do 
  begin 
    y := y - x; 
    x := x - 2; 
  end; 
 
  // Output the result 
  writeln('Final values of x and y:'); 
  writeln('x = ', x); 
  writeln('y = ', y); 
end.  

 #include  
 
int main() { 
    int x, y; 
 
    // Инициализация переменных x и y 
    std::cout << "Введите значение для x: "; 
    std::cin >> x; 
    std::cout << "Введите значение для y: "; 
    std::cin >> y; 
 
    // Основной цикл 
    while (x <= y) { 
        y = y - x; 
        x = x - 2; 
    } 
 
    // Вывод результата 
    std::cout << "Конечные значения x и y:\n"; 
    std::cout << "x = " << x << std::endl; 
    std::cout << "y = " << y << std::endl; 
 
    return 0; 
}