Напишите программу которая генерирует 15 случайных чисел в диапозоне -50 и 50 и выводит на экран числа оканчивающиеся на 1

Program gfh; uses crt; var a, b: integer; begin clrscr; a: =random(50+50+1)-50; if (a< -9) and (a> 9) then b: =a mod 10; if (b=1) then writeln(b); if (a=1) then writeln(a); end.

// счет разрядов от нуля справа налево: var   n: longint;   a,b,k,d: integer; begin   write('введите натуральное число длиной 6-9 цифр: ');   read(n);   k: =0;   while n> 0 do begin       d: =n mod 10;       if k=2 then a: =d       else           if k=5 then b: =d;       inc(k);       n: =n div 10       end;   writeln('ср. арифм. разрядов 2 и 5 равно ',(a+b)/2) end. пример введите натуральное число длиной 6-9 цифр: 123456789 ср. арифм. разрядов 2 и 5 равно 5.5

Program ex; // функция для определения из двух чисел минимальное function min(a, b: real): real; begin       if (a > b) then min : = b else min : = a end; // функция для определения из двух чисел максимальное function max2(a, b: real): real; begin       if (a > b) then max2 : = a else max2 : = b end; // функция для определения из трех чисел максимальное function max3(a, b, c: real): real; begin       // сначала определяем максимальное из первых двух чисел,       // затем у нас останется два числа и нам остается определить       // максимальное из них       max3 : = max2(max2(a, b), c); end; var       x, y, z, d, max_int: real; begin       writeln('введите 4 числа');       readln(x, y, z, d);       max_int : = max3(min(x, y), min(x, z), min(z, d));       writeln(max_int); end.