Question

var k,m : integer;

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:=0;

for k :=1 to 10 do

if Dat [k]>12 then

begin

m:=Dat [k]

end;

writeln(m);

End.