Пожалуйста, помогите подписать все куски программ (что они выполняют):

Program 'test';
var a, b, c, n, i, min: integer;
Begin
min:=32000
a:=10

#1)
While (a<=15) do
Begin
Readln(b);
If (b<=min) then min:=b;
a:=a+1
end;
#2)
Readln(n);
For i:=1 to n do
Begin
Readln(a);
If (min>a) and (a mod 15=0) and (a>0) then min:=a;
End;
b:=a div 15;
Writeln(min, ' ', b);
#3)
If (a>b) then
Begin
Writeln('a');
End
else
Begin
Writeln(b);
End;

Readln();
End.

Заранее спасибо :)