Помогите пожалуйста!
№13,14,15

13
   For i:=2 to 5 do begin
  if min > a[i] then
  min:=a[i];
 end;
write(min);

14
program p1;
uses crt;
var a:array [1..20] of integer;
i,k,s:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
If a[i] mod 2 = 0 then
K:=K+1;
s:=s+a[i];
end;
write(k,'   ',s);
end.

15
 program p1;
uses crt;
var a:array [1..10] of integer;
i,k,s,n:integer;
begin
read(n);
writeln;
for i:=1 to 10 do begin
read(a[i]);
s:=s+a[i];
If a[i] = N then
K:=K+1;
end;
write(k,'   ',s);
end.