Вывести на экран все согласные буквы строки в алфавитном порядке. в паскале

// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var sogl:='бвгджзйклмнпрстфхцчшщ';
  var s:=readlnString('>').ToLower;
  s.Where(c->Pos(c,sogl)>0).Distinct.Sorted.Println;
end.

Пример
> А роЗА УПалА На АПУ аЗора
злнпр

Код на Java

import java.util.Random;

import java.util.Scanner;

public class Main {

   public static void main(String[] args) {

       Scanner in = new Scanner(System.in);

    int A[] = new int[20]; //создание массива

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

        A[i]=in.nextInt();    //заполнение массива

       }

    int sum = 0;

    Random r = new Random(); //обьект класса Random

    for(int i=0;i<5;i++) {

        sum=sum+A[r.nextInt(20)]; //r.nextInt(20) - генерирует число от 0 до 20

       }

    System.out.println(sum);

   }

}

Код на Java

import java.util.Random;

import java.util.Scanner;

public class Main {

   public static void main(String[] args) {

       Scanner in = new Scanner(System.in);

    int A[] = new int[20]; //создание массива

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

        A[i]=in.nextInt();    //заполнение массива

       }

    int sum = 0;

    Random r = new Random(); //обьект класса Random

    for(int i=0;i<5;i++) {

        sum=sum+A[r.nextInt(20)]; //r.nextInt(20) - генерирует число от 0 до 20

       }

    System.out.println(sum);

   }

}