Я знаю, что мало кому будет понятно, но это эпично :'D

[lili-v]

Калачев Алексей (22:15:46 10/03/2012)
Проверял контрольные... У девушек даже в программе условия противоречивые и бескомпромисные)))
if(x>R)and (x<R) then
writeln('принадлежит ')
else
if (x=R) or (x=R) then
writeln ('принадлежит')
else writeln ('не принадлежит');