Решить, ) var a, b, t, m, r : integer; function f(x: integer): integer; begin f : = 9 * (x + 19) * (x - 19) + 1; end; begin a : = -20; b : = 20; m : = a; r : = f(a); for t : = a to b do begin if (f(t) < r ) then begin m : = t; r : = f(t) end end; write(m); end.

Уберите лишние пробелы после ":" и все заработает, на выходе получите 0
Исправленный вариант кода:
var
  a, b, t, M, R: integer;

function F(x: integer): integer;
begin
  F := 9 * (x + 19) * (x - 19) + 1;
end;

begin
  a := -20;b := 20;
  M := a;R := F(a);
  for t := a to b do
  begin
    if (F(t) < R ) then begin
      M := t;
      R := F(t)
    end
  end;
  write(M);
end.

program raf105;

var

 s: string;

 i1,i2,i3,i4,i5,o,x: integer;

 domok_komod: boolean;

begin

s:= '';

for  i1:=1 to 4 do

 for  i2:=1 to 4 do

   for  i3:=1 to 4 do

     for  i4:=1 to 4 do

       for  i5:=1 to 4 do

       begin

         case i1 of

           1: s[1]:= 'Д';

           2: s[1]:= 'К';

           3: s[1]:= 'М';

           4: s[1]:= 'О';

         end;

         case i2 of

           1: s[2]:= 'Д';

           2: s[2]:= 'К';

           3: s[2]:= 'М';

           4: s[2]:= 'О';

         end;

         case i3 of

           1: s[3]:= 'Д';

           2: s[3]:= 'К';

           3: s[3]:= 'М';

           4: s[3]:= 'О';

         end;

         case i4 of

           1: s[4]:= 'Д';

           2: s[4]:= 'К';

           3: s[4]:= 'М';

           4: s[4]:= 'О';

         end;

         case i5 of

           1: s[5]:= 'Д';

           2: s[5]:= 'К';

           3: s[5]:= 'М';

           4: s[5]:= 'О';

         end;

         if s = 'ДОМОК'

           then domok_komod:= true;

         if s = 'КОМОК' //Это не опечатка. Так и должно быть

           then domok_komod:= false;

         if domok_komod

           then o+= 1;

         x+=1;

       end;

writeln('Слов между ДОМОК и КОМОД (включительно): ',o);

writeln('Всего возможных комбинаций: ',x);

end.

Язык PascalABC

Так, все значения одного реквизита в каком-либо отношении однородны. Под однородностью мы понимаем то, что значения одного реквизита характеризуют описываемый объект с какой-либо одной стороны например, по цвету, по назначению, по дате поступления и т.п. Это объясняется тем, что реквизит таблицы, по своему определению, задает одно горизонтальное отношение и тем самым обозначает один родовой признак объекта.

Объяснение:

Первый реквизит таблицы можно рассматривать как результат слияния последующих пяти, т.е. счет выступает в качестве идентификатора, объединяющего значения нескольких признаков в одно.

Первая и вторая таблицы связаны через общий реквизит — номер счета. Он позволяет в данных о движении денежных сумм не указывать подробные сведения о вкладчике, которые хранятся в первой таблице.