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

Question

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

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

#1)
While (a<=15) do<br> Begin
Readln(b);
If (b<=min) then min:=b;<br> 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.

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

Answer 1

Первая программа:
В ней ты вводишь число Б с клавиатуры,и проверяешь через цикл является ли б минимальным числом,если введённое б<32000,то оно-минимальное<br>Вторая:
Вводишь н для количества повторений цикла
Пока не дошло до числа н, вводишь  с клавиатуры А,далее каждое А проверяется на условия: минимальное число(32000 по условию)>а,а делится на пятнадцать без остатка,а>0, если все эти условия соблюдены,то а-минимальное число.
Без цикла проверяет остаток от деления числа А на 15 и записывает остаток от деления в переменную Б
Выводит на экран минимальное число и значение переменной Б
Третья:
Проверяет условие: переменная А больше Б,если да,то выводит на экран переменную А,если нет-то выводит на экран переменную Б