Изобразите решение на графике так как хочу сверить решение. хотя бы примерно выполнить хотя бы одно выражение из трёх. )

PascalABC.NET 3.6.2

#1 //Здесь под словом понимается последовательность непробельных символов, ограниченных пробелами или концом строки. Пунктуация программой игнорируется и удаляется из входного текста для дальнейшей работы.

begin

 var Exp := ReadString();

 Exp := Exp.RegexReplace('`[!"#%&()*,-./:;[email protected]_{}¡\\\[\]«·»¿;·$1234567890]', '').RegexReplace('\s+', ' ');  //Рега пропускает " ' ".

 Exp.Split(' ').Where(p -> p.First = p.Last).Count.Println;

end.

#2

begin

 var A := ArrRandom(ReadInteger(), -99, 99);

 a.Println;

 var zero_ind := A.IndexOf(0);

 if zero_ind <> -1 then Print($'Fisrt "0" number is {zero_ind+1}') else Print('No "0" Finded in Current Array');

end.

Объяснение:

15 минут работы. Я тоже больше по питону)

Полное ветвление:
if логическое выражение then оператор
else оператор;

Неполное ветвление:
if логическое выражение then оператор;

Если ветвления вложенные и среди них есть неполные, надо помнить, что каждое else связывается с ближайшим предшествующим ему if, не имеющем else.
Например, рассмотрим конструкцию
if a>b then if c=d then x:=1 else x:=2;
Без упомянутого правила неясно, что имелось в виду:
if a>b then
    if c=d then x:=1 else x:=2;
или же
if a>b then
    if c=d then x:=1
else x:=2;
Знание правила позволяет разрешить вопрос: имеется в виду первый вариант.
А если нужно получить второй - к нашим услугам блок:
if a>b then
    begin if c=d then x:=1 end
else x:=2;