Напишите программу, которая в последовательности чисел определяет минимальное число.

Uses crt;
var a: array[1..10000] of Integer;
      n, i, min: Integer;
Begin
  readln(n);
  for i := 1 to n do read(a[i]);
  min := a[1];
  for i := 2 to n do
     if a[i] < min then min := a[i];
  writeln(min);
End.

1) var a1, a2, a3, s: integer;
begin    
write('Введите первое число: ');
readln(a1);
write('Введите второе число: ');
readln(a2);
write('Введите третье число: ');
readln(a3);
if a1>0 then s:=s+1;
if a2>0 then s:=s+1;
if a3>0 then s:=s+1;
writeln(s);
end.

2) var n, s, i: integer;
begin    
write('Введите число n: ');
readln(n);
for i:=1 to n do
s:=s+i;
writeln(s);
end.

3) var n, s, i, k: integer;
begin    
write('Введите число n: ');readln(n);
for i:=1 to n do begin
writeln('Введите рост ',i,' учащегося: ');
readln(k);
s:=s+k;
end;
writeln(s/i);
end.

4)var  l, m: integer;
begin 
write('Введите расстояние в сантиметрах: '); 
readln(l); 
m := l div 100; 
write('Количество метров в ', l, ' сантиметрах = ', m);
end.

Program task1;
var  a, i, kol :integer;
begin
  for i:= 1 to 3 do  begin    readln(a);    if a > 0 then      inc(kol);  end;  writeln(kol);
end.

program task2;
var  n, result :integer;
function summa (x :integer) :integer;  var     i, sum :integer;  begin    for i:= 1 to x do      sum:= sum + i;    summa:= sum;  end;
begin
  readln(n);  result:= summa(n);  writeln(result);
end.

program task3;
var  i, n, growth, sum, kol :integer;  SrGrowth :real;
begin
  readln(n);  sum:= 0; kol:= 0;  for i:= 1 to n do  begin    readln(growth);    sum:= sum + growth;    inc(kol);  end;  SrGrowth:= sum/kol;  writeln(SrGrowth);
end.

program task4;
var  l :integer;
begin
  readln(l);  l:= l div 100;  writeln(l);
end.