НАДО , функциональная схема.

program p;

var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end. 

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

б< т

к< л

с< е

липа ниже березы

к< л< б< т

сосна выше тополя

к< л< б< т< с< е

самое высокое ель

самое низкое клен

5 6)input ndim a(n)for i=1 to n  input a(i)next ifor i=1 to n  for j=i to n  if a(i)> a(j) then 'поменяешь больше на меньше и будет сортировать в другую сторону       t=a(i)      a(i)=a(j)      a(j)=t  end if     next jnext ifor i=1 to n  print a(i); next iдля массива а опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. результаты расчета и массив вывести на экран.input ndim a(n)s=0p=1for i=1 to n  input a(i)next ifor i=1 to n  if a(i)> 0 then p=p*a(i)  if a(i)< 0 then s=s+a(i)*a(i)  if a(i)=0 then a(i)=12next ifor i=1 to n  print a(i); next iprintprint sprint pизвестны данные о количестве осадков, выпавших за каждый день января. найти общее число осадков, выпавших по нечетным числам месяца.n=31dim a(n)s=0for i=1 to n  input a(i)next ifor i=1 to n  if i mod 2 =0  then s=s+a(i)next iprintprint sдля массива а. найти количество положительных, сумму нечетных и произведение чисел, кратных в. результаты расчетаа и массив вывести на экран.input ninput bdim a(n)s=0p=1k=0for i=1 to n  input a(i)next ifor i=1 to n  if a(i)> 0 then k=k+1  if i mod 2 = 1 then s=s+a(i)  if a mod b = 0 then p=p*a[i]next ifor i=1 to n  print a(i); next iprintprint sprint pprint b