Переведите на язык паскаль

public class MyClass {

   public static void main(String args[]) {

     System.out.println("1, 2, 3 == " + howManyEqualNumbers(new int[]{1, 2, 3}));

     System.out.println("2, 2, 3 == " + howManyEqualNumbers(new int[]{2, 2, 3}));

     System.out.println("2, 2, 2 == " + howManyEqualNumbers(new int[]{2, 2, 2}));

   }

   

   public static int howManyEqualNumbers(int[] numbers) {

       int result = 0;

       

       for (int i = 0; i < numbers.length; i++) {

           if (i == 0) {

               continue;

           }

           

           if (i == 1 && numbers[i] == numbers[i - 1]) {

               result += 2;

               

               continue;

           }

           

           if (numbers[i] == numbers[i - 1]) {

               result += 1;

               

               continue;

           }

       }

       

       return result;

   }

}

P.S.

Не забывайте нажать " ", поставить оценку, и если ответ удовлетворил, то выберите его как "Лучший" :)

import java.util.Scanner;

class Main {

   public static void main(String[ ] args) {

       // Запрашиваем значения у пользователя

       Scanner sn = new Scanner(System.in);

       Scanner sm = new Scanner(System.in);

       Scanner sk = new Scanner(System.in);

       double n = sn.nextFloat();

       double m = sm.nextFloat();

       double k = sk.nextFloat();

       

      // Проверяем, если m * n при делении на k чётное, значит выводится "YES", если нечётное, то "NO"

       if(((n * m) / k) % 1 == 0) {

           System.out.print("YES");

       }

       else {

           System.out.print("NO");

       }

   }

}