fork download

copy

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.

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

Standard output is empty