Ыдвух строках текстого файла находится по три целых числа.найти разность сумм этих чисел. результат на экран

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadAllLines('input.txt');
  Writeln(s[0].ToReals.Sum-s[1].ToReals.Sum)
end.

#include <fstream>
#include <iostream>

using namespace std;

int main ()
{
ifstream in;
in.open ("cin.txt");
int s1=0, s2=0, cinn;
for (int i=0; i<4; ++i)
{
in>>cinn;
s1+=cinn;
}
for (int i=0; i<4; ++i)
{
in>>cinn;
s2+=cinn;
}
cout<<"S1 - S2 = "<<s1-s2<<endl;
return 0;
}

Это на языке С++.