Перевести код из паскаля в c++: var s1, s2: string; i, ans: longint; begin readln(s1); readln(s2); ans : = 0; for i : = 1 to length(s1) - 1 do if pos(copy(s1, i, 2), s2) < > 0 then ans : = ans + 1; writeln(ans) end.

#include <iostream>
#include <cstdlib>
#include <string>
#include "stdafx.h"
int main()
{
long int i;
long int ans = 0;
string s1, s2;
std::getline(std::cin, s1);
std::getline(std::cin, s2);
for (int i = 1; i <= s1.length() - 1; i++)
{
if (s1.substr(i, 2)).find(s2)) ans++
}
std::cout << ans << std::endl;
return 0;
}