Решить кроссворд. очень надо, урок через 10 минут​

В приложении программы в файлах
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;
}

1)
var s,a,b: string; i,p: byte;
begin
s:='Снег лежит на земле';
writeln('Было:');
writeln(s);
a:='на земле';
b:='повсюду';
p:=Pos(a,s);
delete(s,p,length(a));
insert(b,s,p);
writeln('Стало:');
writeln(s);
end.

Было:
Снег лежит на земле.
Стало:
Снег лежит повсюду.


2)
var s: string;
begin
writeln('Введите слово:');
readln (s);
if length(s)>5 then writeln ('Верно') else writeln ('Не верно');
end.

Введите слово:
ученик
Верно


3)
var s: string; i,k: byte;
begin
writeln('Введите слово:');
readln (s);
k:=length(s);
for i:=1 to k do 
  s:=s+'+';
writeln (s)
end.

Введите слово:
море
море