program aaa;
Var k, m: integer;
Dat: array[1...10] of integer;
Begin
Dat[1] := 12; Dat[2] := 15;
Dat[3] := 17; Dat[4] := 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.
cHJvZ3JhbSBhYWE7CgpWYXIgaywgbTogaW50ZWdlcjsJCkRhdDogYXJyYXlbMS4uLjEwXSBvZiBpbnRlZ2VyOwpCZWdpbgkJCQpEYXRbMV0JOj0gMTI7CURhdFsyXQk6PSAxNTsKRGF0WzNdCTo9IDE3OwlEYXRbNF0JOj0gMTU7CkRhdFs1XQk6PSAxNDsJRGF0WzZdCTo9IDEyOwpEYXRbN10JOj0gMTA7CURhdFs4XQk6PSAxMzsKRGF0WzldCTo9IDE0OwlEYXRbMTBdCTo9IDE1OwptIDo9IDIwOwkJCQpmb3IgayA6PQkxIHRvCTEwIGRvCQppZiBEYXRba10gPCBtIHRoZW4JCmJlZ2luCQkKbSA6PSBEYXRba10JCmVuZDsJCQkKd3JpdGVsbihtKTsJCQpFbmQu
Free Pascal Compiler version 3.0.0+dfsg-10 [2016/12/12] for x86_64
Copyright (c) 1993-2015 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling prog.pas
prog.pas(4,15) Error: Illegal expression
prog.pas(4,16) Error: Can't evaluate constant expression
prog.pas(4,16) Fatal: Syntax error, "]" expected but "ordinal const" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode