Как перевести из с++ в ПаскальABC?

Question

[Ronin08]

#include
#include
using namespace std;
int main()
{
int n, i, t, t1;
cout<<"n= "; cin>>n;
for(i=2; i<=(int)sqrt((double)n); i++)
{
t=0; t1=n;
while(t1%i==0)
{
t++;
t1/=i;
}
if(t==2)
cout< }

return 0;
}