[REQ] T. Pascal - 2 Zadatka

Ne sjecam se tacno kako idu naredbe u paskalu pa cu uradti samo tebi u C++-u.
Evo ga prvi zadatak, najvjerovatnije nece biti kako treba napisan ovdje zbog glupih g.ba smajlija. :S

#include <cstdlib>
#include <iostream>

using namespace std;

int main(int argc, char *argv[])
{
int n, k, temp, i;

cout<<"Unesite broj \"n\" :";
cin>>n;
cout<<"Unesite broj \"k\" :";
cin>>k;
if (n>k)
{
temp=n;
n=k;
k=temp;
}

for (i=n;i<=k;i++)
if (i%3==0)
cout<<i<<" ";
cout<<"\n\n";
system("PAUSE" );
return EXIT_SUCCESS;
}

I evo ga drugi zadatak:


#include <cstdlib>
#include <iostream>

using namespace std;

int main(int argc, char *argv[])
{
int a, b, c, sum=0;
a=5; b=25;
c=a;

while (c<=25)
{
if (c%2==0)
sum=sum+1/c;
c++;
}


cout<<"Suma reciprocnih vrijednosti brojeva od 5 do 25,\n\n";
cout<<"koji su djeljivi sa 2 je:\t"<<c<<"\n\n\n\n";
system("PAUSE" );
return EXIT_SUCCESS;
}

@archie
De mi samo napisi kako ti pises pocetak programa u pascalu.
ono:


Program naziv;
uses wincrt;
.
.
.
.

Ne sjecam se sta sam koristio u srednjoj, pa da to napisem.
Ostalih komandi se sjecam odprilike, pa bi trebao moci uraditi.