Из Pascal в С++

[spinogryz_ua]

Переведите плиз вт это в С++

Заранее Сапасибо!!!!

uses crt;
var
ms:array[1..18] of integer;
max,s,k,i:integer;
begin
 
  randomize;
  writeln('Существующий масив: ');

   for i:=1 to  18 do begin
    ms[i]:=random(225)-100;
    writeln(' ',i,')  ',ms[i]);
   end;
   k:=0;
   s:=0;
   max:=-2000;
      writeln;

   writeln('Числа кратные 5: ');
   for i:=1 to 18 do begin
    if (ms[i] mod 5=0) then begin
    s:=s+1;
    k:=ms[i];
    writeln(i,') ',k);end;
    if (k>max) then
    max:=k;

   end;
    writeln('Кол-во елементов кратных 5: ');
   writeln(s);
   writeln('Максимальное среди кратных 5: ');
   writeln(max);
   writeln;

end.

[BDA]

Возможно натыкал лишних библиотек.

#include <iostream>
#include <conio.h>
#include <stdio.h>
#include <time.h>
#include <stdlib.h>
#include <cmath>

using namespace std;

int main()
{
    int ms[18],max=-2000,s=0,k=0,i;
    srand(time(NULL));
    cout << "The existing array: " << endl;

    for (i=0; i<18; i++)
    {
        ms[i]=rand()%226-100;
        cout<<i+1<<") "<<ms[i]<<endl;
    }
    cout<<endl<<"The numbers are multiples of 5: "<<endl;

    for (i=0; i<18; i++)
    {
        if (ms[i]%5==0)
        {
            s=s+1;
            k=ms[i];
            cout<<i+1<<") "<<k<<endl;
        }
        if (k>max)
            max=k;
    }
    cout<<"Number of elements are multiples of 5: "<<endl<<s<<endl<<"The maximum among multiple of 5: "<<endl<<max<<endl;
    return 0;
}