Нужно нарисовать блок-схему по программе. program put;
var a,b,x:real;
begin
write('введите a=');
read(a);
write('введите b=');
read(b);
if (a>0) and (a<>1) then write('x=',exp(b*ln(a)))
else write('решения нет');
end.

Program primer;
var
  f: text;
  i, j, h: byte;
  l, k: smallint;
  s, s1, s2, m: string;
begin
assign(f, 'F.txt'); {путь к файлу}
  reset(f);
   read(f, s);
  s := ' ' + s + ' ';
  close(f);
  writeln('укажите 2 слова через строчку');
  readln(s1);
  readln(s2);
  i := 0; j := 0; m := s; k := 1;
  while k <> 0 do
   begin
    k := pos(' ' + s1 + ' ', m);
    if (k <> 0) then inc(i);
    delete(m, 1, k + length(s1));
  end;
  k := 1; m := s;
  while k <> 0 do
   begin
    k := pos(' ' + s2 + ' ', m);
    if (k <> 0) then inc(j);
    delete(m, 1, k + length(s2));
  end;
  m := s; k := 1; h:=0;
  while (k <> 0) or (l <> 0) do
   begin 
    k := pos(' ' + s1 + ' ' + s2 + ' ', m);
    l := pos(' ' + s2 + ' ' + s1 + ' ', m);
    if (k <> 0) or (l <> 0) then inc(h);
     delete(m, 1, k + l + length(s2 + s1) + 1);
   end;
 writeln('количество слов соответствующих первому = ', i);
 writeln('количество слов соответствующих второму = ', j);   writeln('непосредственно друг за другом   х', h);
end.

Прога написанная в CodeBlocks:
#include <iostream>
using namespace std;
int main()
{   
     setlocale(LC_ALL,"Russian");   
     int a[20];   
     int b, c, i, q=0;   
     for(i=1; i<21; i++)   
    {       
         cout<<"Введите "<<i<<" число: ";       
         cin>>a[i];   
    }   
    cout<<"Введите начальный номер элемента массива: ";   
cin>>b;
    cout<<"Введите конечный номер элемента массива: ";   
cin>>c;
    for(int j=b; j<c+1; j++)   
    {     
         q+=a[j];   
    }   
    cout<<"Cумма элементов массива с номерами с "<<b<<" по "<<c<<" равна: "<<q;
}
Я надеюсь тебе была нужна прога на С++))