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.
VmFyIGssIG06IGludGVnZXI7CQpEYXQ6IGFycmF5WzEuLi4xMF0gb2YgaW50ZWdlcjsKQmVnaW4JCQkKRGF0WzFdCTo9IDEyOwlEYXRbMl0JOj0gMTU7CkRhdFszXQk6PSAxNzsJRGF0WzRdCTo9IDE1OwpEYXRbNV0JOj0gMTQ7CURhdFs2XQk6PSAxMjsKRGF0WzddCTo9IDEwOwlEYXRbOF0JOj0gMTM7CkRhdFs5XQk6PSAxNDsJRGF0WzEwXQk6PSAxNTsKbSA6PSAyMDsJCQkKZm9yIGsgOj0JMSB0bwkxMCBkbwkKaWYgRGF0W2tdIDwgbSB0aGVuCQpiZWdpbgkJCm0gOj0gRGF0W2tdCQplbmQ7CQkJCndyaXRlbG4obSk7CQkKRW5kLg==
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(2,15) Error: Illegal expression
prog.pas(2,16) Error: Can't evaluate constant expression
prog.pas(2,16) Fatal: Syntax error, "]" expected but "ordinal const" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode