Дан массив 18 натуральных чисел.напечатать все элементы массива, являющиеся трехзначными числами

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

begin
  var a:=ArrRandom(18,10,5000); a.Println;
  a.Where(t->t.Between(100,999)).Println
end.

Program n1;
var a: array[1..18] of integer;
i: integer;
begin
randomize;
for i:=1 to 18 do a[i]:=random(10000);
for i:=1 to 18 do if (a[i]>99) and (a[i]<1000) then write(a[i],' ');
end.

// PascalABC.NET

// Версия 3.3.5 сборка 1662 (29.04.2018)

А

begin

   Println('Кол-во символов -',ReadString('Слово->').Length)

end.

Пример:

741258963

Кол-во символов - 9

Б

begin

   var s:=ReadString('Слово-> ').ToLower;

   Println(s[1]=s[s.Length]?'Совпадают':'Не совпадают');

end.

Пример:

Слово-> Олово

Совпадают

В

begin

   var s:=ReadString('Слово-> ');

   Println(s[1],s[2],s[s.Length]);

end.

Пример:

Слово-> Плотина

П л а

Г

begin

   Println(ReadString('Слово->').Length mod 2=0?'Четно':'Нечетно');

end.

Пример:

Слово-> Виноград

Четно

Импликация — бинарная логическая связка, по своему применению приближенная к союзам «если… то…».

Импликация записывается как посылка следствие; применяются также стрелки другой формы и направленные в другую сторону (остриё всегда указывает на следствие).

Суждение, выражаемое импликацией, выражается также следующими

Посылка является условием, достаточным для выполнения следствия; Следствие является условием, необходимым для истинности посылки.              x={"Студент сдаст хорошо сессию"} y={"Папа купит ему машину"}. Однако, это не совсем удачная иллюстрация, потому что как-то не очень близка к действительности. Напомню, что x->y == 0 только в том случае, если студент действительно хорошо сдал сессию, а папа машину ему не купил (наоборот, если студент сдал плохо, а папа купил ему машину, то папу лжецом уж точно не назовёшь).