Напишите программу дублирующию все символы 'и' в строке

Var s1,s2: string; i: integer; begin writeln('введите строку: '); readln(s1); s2: =''; for i: =1 to length(s1) do   if s1[i]='и' then s2: =s2+'ии' else s2: =s2+s1[i]; writeln(s2); end. пример: введите строку: напишите программу дублирующую символы напиишиите программу дублиирующую сиимволы

/*VS C++*/
#include <iostream>
#include <math.h>
using namespace std;
int main() {
    float x, y, h;
    cout << "Vvedite x = "; cin >> x;
    cout << "Vvedite y = "; cin >> y;
    if (x < y) h = atan(x + fabs(y));
    if (x > y) h = atan(fabs(x) + y);
    if (x == y) h = pow((x + y), 2);
    cout << "h = " << h << endl;
    system("pause");
    return 0;
}

Тут сначала нужно подумать . Нам известно что Толя брат Дины а значит Дина уже не будет женится на Толе. Толя старше Димы а значит Вера будет женится на Толе.