Устное или ребусное путешествие к одному из слов алгоритма, программы, вещателя, компилятора, переводчика

#include<iostream>
#include<cstring>
using namespace std;
int main()
{
string input="";
string key="";
std::cout<<"Enter the string to be coded:\t";
std::getline(std::cin,input);
std::cout<<"\nEnter key:\t";
std::getline(std::cin,key);
int keyl=key.length();
int inputl=input.length();
for(int j=0;keyl<inputl;j++)
    {
        key+=key[j]; keyl++;
    }
cout<<"\nKey:\t"<<key;
string encrypted="";
for(int i=0; i<keyl;i++)
     {
           encrypted+=key[i]^input[i];
      }
 std::cout<<"\nEncrypted data:\t"<<encrypted;
string unencrypted="";
for(int i=0;i<keyl;i++)
      {
      unencrypted+=encrypted[i]^key[i];
      }
std::cout<<"\nUnencrypted:\t"<<unencrypted;
return 0;
 }

Программа считает сумму последних трех цифр:
Pascal:
var n:longint;
      sum,i:integer;
begin
  repeat
   write ('N = ');
   readln (n):
  until (n>=10000) and (n<=99999);
  sum:=0;
  for i:=1 to 3 do
   begin
     sum:=sum+(n mod 10);
     n:=n div 10;
   end;
  writeln ('Summa: ',sum);
end.

C++:
#include <iostream>
using namespace std;
int main()
{
  int n,sum = 0;   
  do
  {
    cout <<"N = ";
    cin >>n;
  }
  while (n<10000 || n>99999);
  for (int I = 1; I<=3; I++)
  {
    sum+=n%10;
    n/=10;
  }
  cout <<"Summa: " <<sum <<endl;   
  return 0;
}