Ничего не понимаю, даже когда пыталась Дана программа. Определить результат выполнения.

program N02;
const A: array [1..10] of integer = (1,36,2,18,3,12,4,9,6,6);
var i,k: integer;
begin
k:=0;
for i:=1 to 7 do
if A[i]write(k)
end.

Var a,b,c,max,two: Integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
max:=a;
if max < b then max:=b;
if max < c then max:=c;
if max=a then
begin
two:=max;
if c < b then two:=b;
if c > b then two:=c;
writeln(max,'+',two,'=',max+two);
end;
if max=b then
begin
two:=max;
if c < a then two:=a;
if c > a then two:=c;
writeln(max,'+',two,'=',max+two);
end;
if max=c then
begin
two:=max;
if a < b then two:=b;
if a > b then two:=a;
writeln(max,'+',two,'=',max+two);
end;
end.

Анна Брусникина
Тамара Черникина
Галина Морошкина
Ирина Клубникина    и
Полина  Малинина
 
с начала про Ирину: с условия мы понимаем что она не является ни малининой, ни черникиной, ни морошкиной(так как все предположения подруг оказались неверными, а первое место заняла морошкина, вывод морошкина - не Ирина)
Анна - ну тут все ясно, вычеркиваем из ее столбца малинину, клубникину, черникину, морошкину, а Анна у нас Брусникина (значит никто из девочек больше не может быть клубникиной, и тут выясняем что Ирина у нас клубничку любит, опять же никто из девочек не может быть больше клубникиной.)
Полина у нас не может быть Морошкиной, это мы ясно видим, но возвратимся к неверным предположениям, 4 место в этих предположениях занимает... Черникина. Вычитаем эти 2 фамилие из общей массы. Полина получается у нас малининой.
С тех же самых ошибочных предположений находим что Тамара черникина, а Галина Морошкина
надеюсь