Для изучения теории реальных деловых циклов используются модели общего макроэкономического равновесия с гибкими ценами

Правильные вопросы выделены по тесту
тест уже прошел свою проверку

program string_2;
var s, slovo, otv:String; ns, ks, i, m: Integer;
begin
   Writeln ('Введите строку:'); Readln(s);
   i:=1; ns:=1; otv:=''; s:=s+' ';
   while i<=Length(s) do
   begin
      while (i<=Length(s)) and (s[i]<>' ') do i:=i+1; {ищем очередной пробел}
      ks:=i; slovo:=Copy(s, ns, ks-ns); {выделяем слово}
      m:=Length(slovo) div 2; {половина длины слова}
      if (Length(slovo) mod 2=0) and (Copy(slovo,1,m)=Copy(slovo,m+1,m))
         {если слово имеет четную длину}
          then otv:= otv+slovo+ ','; {добавляем слово к ответу}
      while (i<=Length(s)) and (s[i]=' ') do i:=i+1; {пропускаем пробелы}
      ns:=i; {начало следующего слова}
   end;
   Delete(otv, Length(otv), 1); {удаляем лишнюю запятую в конце}
   Writeln(otv);
   Readln
end.

Program SORT_1;   
Const n=10;
Var
    Mas  : array[1..n] of integer;
    i , c, p   : integer;
Begin
    Writeln(‘Введите значения элементов массива’);
    For i:=i to n do
    begin
    Write(‘mas[‘,i,’]=’);
    Readln(mas[i]);
         end;
    repeat
    p:=0;
    for i:=1 to n-1 do
        if mas[i]> mas[i+1] then
        begin   
            c:=mas[i];
            mas[i]:=mas[i+1];
            mas[i+1]:=c;
            p:=1;
        end;
    until p=0;
    writeln(‘Упорядоченный  по возрастанию массив:’);
    for i:=1 to n do writeln(‘mas[‘,i,’]=’, mas[i]);
End.