Var k, m: integer;
Dat: array(1..10) of integer;
Begin
Dat (1) i= 12; Dat (2) - 15;
Dat (3) := 17; Dat (4) re 15;
Dat (5] : 14; Dat (6) := 12;
Dat [7] := 10; Dat [8] : 13;
Dat (9) * 14; Dat (10) * 15;
m := 20;
for k:=1 to 10 do
if Dat (k) < m then
begin
m : Dat(k):
end;
writeln(m):
End.

Ответ:

m не меняется, поэтому будет напечатано 20