Составить программу паскаль и объясните ее дано четырехзначное число, получить новое поменяв местами первую и последнюю цифру

Program zamena; var s: string;       x,y: char; begin write('введите четырехзначное число: '); readln(s); x: =s[1];   y: =s[4]; s[1]: =y; s[4]: =x; writeln('полученное число: ',s); end.считываем число как строку. символьной переменной "x"  присваиваем значение первого символа строки (первой  цифры числа). символьной переменной "y" присваиваем значение четвертого символа строки (четвертой цифры числа). делаем обмен первой и четвертой цифры числа: присваиваем первому символу значение переменной "y", а четвертому символу - значение переменной "x". выводим получившуюся строку (число) на экран.

Не совсем красиво но без массивов var cur_num, prev_num: integer; begin       writeln('введите последовательность закончив ее нулем');       read(prev_num);       repeat               read(cur_num);               if cur_num * prev_num > 0 then                       writeln('пара = ', cur_num * prev_num);               prev_num : = cur_num;       until cur_num = 0; end.

Там есть разные . вам в пример более распространенную. в марафоне участвуют   300 атлетов.спец. устройство регистрирует прохождение каждым участником промежуточного  финиша записывая его номер минимальным кол-вом бит,одинаково для каждого спортсмена. каков информационным объем сообщения,записанного устройством,после того,как финиш прошли 160 человек. решение: n=2^i n=300(кол-во участников) i=? 300=2^i 2^8< 300> 2^9 i=9бит т.к. финиш прошли 160 спортсменов,то 160*9=1440 бит= 180байт