nr_mic_i.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program nr_mic_in_fata;
{Fie un vector de numere intregi strict pozitive.Sa se scrie cel mai mic
nr. obtinut din primele 3 cifre ale elementelor vectorului.}
var m,n,k,i,min,max,mijloc:integer;
    a:array[1..100] of integer;
begin
write('numarul de elemente al vectorul este(>4): ');
readln(n);
for i:=1 to n do
    begin
         write('a[',i,']= ');
         readln(a[i]);
    end;
m:=a[1];
n:=a[2];
k:=a[3];
min:=0;
       if m>n then min:=n
              else min:=m;
              if min>k then min:=k;
max:=0;
       if m<n then max:=n
              else max:=m;
       if max<k then max:=k;
mijloc:=m+n+k-(min+max);
writeln('Cel mai mic nr. obtinut din primele 3 cifre ale vectorului este: ',min,mijloc,max);
end.