Пример программы типа данных Record

//длинная арифметика

begin

 var a := '123456789123456789';//ReadString();

 var b := '123456789123456789123';//...

 var l := Abs(a.Length - b.Length);

 var source := l*'0';

 if a.Length > b.Length then

     insert(source, b, 1)

 else

     insert(source, a, 1);

 var s := '';

 var mem := 0;

 for var i:=a.Length downto 1 do

 begin

   var c := a[i].ToDigit + b[i].ToDigit + mem;

   mem := c div 10;

   insert((c mod 10).ToString, s, 1)

 end;

 if (mem > 0) then insert('1', s, 1);

 s.Println;

end.

def func1(arr)

 arr.select { |item| (100..999).cover?(item) && (item / 100 == item % 10) }

end

def func2(arr)

 arr.count { |item| (item % 3).zero? && (item % 10 != 5) }

end

def func3(arr)

 sum = 0

 arr.each { |x| sum += x if x.even? && (10..99).cover?(x) }

 sum

end

def func4(arr)

 narr = []

 arr.each { |x| narr.push(x) if (100..200).cover?(x) }

 narr.empty? ? (arr.map { |x| x = 1 }) : narr

end

arr = Array.new(rand(2..1000))

arr.map! { |item| item = rand(0...2000) }

puts 'Исходный массив:'

puts arr

puts "\n1. Найти и вывести на экран все трехзначные числа,в которых на первом и последнем месте стоят одинаковые цифры: "

puts func1(arr)

puts "\n2. Подсчитать количество чисел,кратных 3 и не оканчивающихся на 5 и вывести на экран: "

puts func2(arr)

puts "\n3. Найти сумму всех двузначных четных чисел и вывести на экран: "

puts func3(arr)

puts "\n4. Найти в массиве числа из диапазона от 100 до 200 включительно и вывести на экран,если таких нет,то заменить все числа на 1 и вывести на экран:"

puts func4(arr)