Дан массив. составить программу расчета квадратного корня из любого элемента массива.

Какт так
i:=0;
while i*i<>arr[6] do
begin
inc(i);
end;
writeln(i);

Импликацию часто по-другому называют "Следование".
Т.е. из выражения a следует выражение b.
Основные правила импликации, где 0 - ложь, 1 - истина.
Импликация ложна тогда и только тогда, когда из истины следует ложь. 
А теперь так, как когда-то  объясняли мне:
1) 1->1 = 1 
Из истины следует истина. То есть из истинного факта (а) следует (или же мы делаем) справедливый истинный вывод(b). Все в порядке. Справедливо. Получаем 1 (истину) после операции импикации.

2) 0->1 = 1
Из неправильного высказывания (a) мы делаем правильный вывод(b). С этим тоже все в порядке, множество научных открытий делалось по принципу "из ошибочного суждения - верная теория". Бывает. Справедливо. Получаем истину.

3) 0->0 = 1
Из ложного высказывания (a) - ложные "выводы"(b) , тоже все в порядке. Логично, что из одной "лжи", у нас вторая "ложь". Справедливо. Получаем иситну.

4) 1->0 = 0
Из истинного высказывания (a) получаем ложное высказывание (b). Т.е. мы взяли и переврали истину непонятно как. Нехорошо и не справедливо. Получаем ложь:(

Если остались вопросы, или вообще никак не в комментарии:)

uses graphABC;

Begin

Setbrushstyle(bsClear);

SetPenWidth(13);

SetPenColor(clBlue);

Circle (140,200,100);

SetPenColor(clBlack);

Circle (320,200,100);

SetPenColor(clRed);

Circle (500,200,100);

SetPenColor(clYellow);

Circle (240,315,100);

SetPenColor(clGreen);

Circle (420,315,100);

SetPenColor(clBlue);

Arc(140,200,100,-17,90);

SetPenColor(clBlack);

Arc(320,200,100,180,200);

SetPenColor(clBlack);

Arc(320,200,100,-15,90);

SetPenColor(clRed);

Arc(500,200,100,180,270);

SetPenColor(clYellow);

Arc (240,315,100,0,45)

end.

Объяснение:

картинка