решить задачу на Паскаль : Написать программу рисующую ровно по центру рабочего окна зелёный прямоугольник заданных пользователем размеров. После этого программа должна производить заполнение прямоугольника произвольными отрезками, не выходящими за его пределы, цвет отрезков красный. Размер рабочего окна задается пользователем. Заполнение производить до нажатия пользователем любой клавиши на клавиатуре

// PascalABC.NET 3.0, сборка 1088
const
  n=10; // количество вводимых чмсел
var
  a:array[1..n] of integer;
  i,k,t:integer;
begin
  Writeln('Введите через пробел ',n,' целых чисел');
  k:=0;
  for i:=1 to n do begin
    Read(t);
    if Odd(t) then begin Inc(k); a[k]:=t end
    end;
  if k>0 then begin
    Write('Нечетные числа: ');
    for i:=1 to k do Write(a[i],' ');
    Writeln
    end
  else Writeln('Все введенные числа - четные')
end.

Тестовое решение:
Введите через пробел 10 целых чисел
24 137 -53 46 0 -18 35 2 352 1111
Нечетные числа: 137 -53 35 1111

В приложении программы в файлах
1.
#include <iostream>
using namespace std;
int main()
{
    setlocale(LC_ALL,"Russian" );
    int k, n, sum = 0;
    cout << "Введите K: ";
    cin >> k;
    cout << "Введите N: ";
    cin >> n;

    for(int i = k ; i <= n; i++) {
        sum = sum + i;
    }

    cout << "Сумма чисел от " << k << " до " << n << " равна " << sum << endl;
    return 0;
}

2.
#include <iostream>
using namespace std;
int main()
{
    setlocale( LC_ALL,"Russian" );
    int k, n;
    cout << "Введите K: ";
    cin >> k;
    cout << "Введите N: ";
    cin >> n;

    for(int i = 1 ; i <= n; i++) {
        cout << k << endl;
    }
    return 0;
}

3.
#include <iostream>
using namespace std;
int main()
{
    for(int i = 1; i < 30; i++){
        if (!(i % 2 == 0)) {
            cout << i << endl;
        }
    }
    return 0;
}

4.
#include <iostream>
using namespace std;
int main()
{
    for(int i = 1; i <= 10; i++) {
        cout << i << " " << i*i << endl;
    }
    return 0;
}