Дана строка. вывести первый, последний и средний (если он есть)) символы.написать программу в паскале. надо

Var s:string; l:integer;
begin
write('Введите строку: ');
readln(s);
writeln('Первый символ: ',s[1]);
l:=length(s);
writeln('Последний символ: ',s[l]);
if l mod 2 = 1
 then writeln('Средний символ: ',s[l div 2+1])
 else writeln('Длина строки четна');
end.

Пример:
Введите строку: ПАСКАЛЬ
Первый символ: П
Последний символ: Ь
Средний символ: К

Программы правда выводят не просто число, т.к. это не очень понятно получается, поэтому сначала выводится название того, что именно мы сосчитали.

Когда проверите работу программы, просто уберите текстовую часть вывода в конце, и тогда будет как в задаче- выводится только одно число.

Также, в последней программе можно сократить сообщение при отсутствии искомых чисел до просто "NO".

1) оканчивающиеся на 4 (минимальное):

цел ч,н,п,м=0

алг

нач

вывод "количество чисел в последовательности= "

ввод п

вывод "ввод последовательности натуральных чисел:", нс

нц для н от 1 до п

вывод "число ", н, " из ", п, " = "

ввод ч

если mod (ч, 10) = 4 то

если м=0 или м>ч то м := ч всё

всё

кц

вывод "минимальное число, оканчивающееся на четыре= ", м

кон

2) кратные 5 (среднее арифметическое):

цел ч,н=0,с=0,к=0

алг

нач

вывод "ввод последовательности натуральных чисел:", нс

нц

н := н+1

вывод "число №", н, " = "

ввод ч

если mod (ч, 5) = 0 и ч <> 0 то

с := с+ч

к := к+1

всё

кц при ч=0

если к=0 то

вывод "NO (нет чисел, кратных пяти)"

иначе

вывод "среднее арифметическое чисел кратных пяти= ", с/к

всё

кон

1. что-то типа

>>> incoming = [505, 155, 955,550, 433, 234, 23, 1, 45, 55]

>>> result = [i for i in incoming if len(str(i)) == 3 and str(i).count('5') == 2]

>>> print(result)

[505, 155, 955, 550]

2. мне кажется можно сделать лучше чем:

>>> incoming = [505, 155, 955,550, 433, 234, 23, 1, 45, 55]

>>> f = lambda x, y, z: int(x) * int(y) * int(z)

>>> res = [f(*list(str(i))) for i in incoming if len(str(i)) == 3]

>>> print(res)

[0, 25, 225, 0, 36, 24]

3. Не думаю что это задача

>>> a, b, c = 1, 2, 3

>>> res = [a*2, b/4 if b != 0 else 0, a*b+c]

>>> print(res)

[2, 0.5, 5]

Объяснение: