[решено] Перевод с Pascal на C++

[sla_v@vk]

var a, i, n, min: integer;
begin
readln (n) ;
min := 30001;
for i := 1 to n do
begin
readln (a) ;
if (a < min) and (a mod 7 = 0)
then min := a
end;
writeln (min) ;
end.
Заранее спасибо.

[Grabber2006]

#include "stdafx.h"
#include <iostream>
using namespace std;


int _tmain(int argc, _TCHAR* argv[])
{
long int a, i, n, min;
cin >> n;
min = 30001;
for (i=1; i<=n; i++)
{
cin >> a;
if ( (a < min) && ((a%7) == 0) ) min=a;
};
cout << min << "\n";
system ("pause");
return 0;
}

[sla_v@vk]

Grabber2006, Dev C++ не хочет работать так

[Grabber2006]

На что ругается?

[XPEHOMETP]

Не хотите попробовать автоматический транслятор, вроде p2c (http://schneider.ncifcrf.gov/p2c/)?

[sla_v@vk]

Grabber2006, #include "stdafx.h"потом наint _tmain(int argc, _TCHAR* argv[]) и на system ("pause");

[Grabber2006]

#include <iostream>
using namespace std;
/* run this program using the console pauser or add your own getch, system("pause") or input loop */

int main(int argc, char** argv)

{
long int a, i, n, min;
cin >> n;
min = 30001;
for (i=1; i<=n; i++)
{
cin >> a;
if ( (a < min) && ((a%7) == 0) ) min=a;
};
cout << min << "\n";
system ("pause");
return 0;
}

[sla_v@vk]

Grabber2006, Работает если стереть system ("pause");
Спасибо вам большое