Опис ізмінній «result» має присвоюватись значення "good" якщо «check» == true та "bad", якщо «check» == false.перевіряється змінна «result» на коректність присвоєння значення.

Var n,a,k: integer; p,s: real; begin write('n = '); readln(n); k: =0; for n: = 1 to n-1 do       begin       a: =n;       s: =0;       while a> 0 do             begin             s: =s+(a mod 10);             a: =a div 10;             end;       a: =n;       p: =1;       while a> 0 do             begin             p: =p*(a mod 10);             a: =a div 10;             end;       if s=p then             begin             writeln(n);             k: =k+1;             end;       end; if k=0 then writeln('нет'); end.

На форме имеется две группы радиокнопок:   radiogroup1 и  radiogroup2. радиокнопки в каждой группе нумеруются с 0. if radiogroup1.itemindex=1  then answers[1]: =true else answers[1]: =false; если в первой группе отмечена (выбрана) вторая радиокнопка, то элементу массива  answers[1] присваивается значение true (видимо, это кнопка с верным ответом); если выбрана другая радиокнопка, то элементу массива  answers[1] присваивается значение  false. if radiogroup2.itemindex=0 then answers[2]: =trueдля второй группы радиокнопок выполняются аналогичные действия (здесь верный ответ соответствует первой радиокнопке).