Опешите разветляющийся алгоритм​

если (условие 1) то

    выражение 1

или если(условие 2) то

    выражение 2

или если (условие 3) то

    выражение 3

иначе                                  

    выражение n

//pascalabc.net 3.2 сборка 1318 //1 var   s,maxs: string;   i,max,j,len: integer; begin max: =-1; readln(s); var ars: =s.split; for i: =0 to ars.length-1 do begin len: =0;   for j: =1 to ars[i].length do     if (lowcase(ars[i][j])> ='a') and (lowcase(ars[i][j])< ='z') then         inc(len); if ars[i].length=max then     maxs+=chr(13)+ars[i]+' '+len; if ars[i].length> max then     begin       maxs: =ars[i]+' '+len;       max: =ars[i].length;     end; end; write(maxs); end. пример ввода: steins; gate is fine vn, 12345678910 пример вывода: steins; gate 10 12345678910 0 //2 var   s: string;   i,counter: integer; begin readln(s); for i: =1 to length(s) do   if (s[i]=upcase(s[i])) and (lowcase(s[i])> ='a') and (lowcase(s[i])< ='z') then   inc(counter); writeln(counter); end. пример ввода: simple text пример вывода: 4

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('текст: ');   var c: =readlnchar('буква: ');   writeln('буква встречается ',s.where(p-> p=c).count,' раз(а)') end. пример текст: а роза упала на лапу азора буква: а буква встречается 8 раз(а) // pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('текст: ');   var m: =s.matchvalues('(\w)\1{1}').distinct;   foreach var cc in m do s: =s.replace(cc,cc[1]);   s.println end. пример текст: стеклянный оловянный искусство стекляный оловяный длиношее искуство