Объясните, почему он выводит 21, а не 19?
Var k, m: integer;
Dat: array[1..11] of integer;
Begin
Dat[1]:= 20;
Dat[2]:= 27;
Dat[3]:= 19;
Dat[4]:= 28;
Dat[5]:= 26;
Dat[6]:= 22;
Dat[7]:= 24;
Dat[8]:= 28;
Dat[9]:= 26;
Dat[10]:= 21;
Dat[11]:= 27;
m := 0
for k :=1 to11 do
if Dat[k] < 25 then begin
m := Dat[k];
end;
writeln(m);
End.

У тебя программа выводит нечётное число. Которое меньше того, что стоит в: if Dat[k] < 25 then begin... Если поставить вместо 25 ---> 21, то будет выводить 19