Найти длину окружности l и площадь круга s заданного радиуса r: l =2*п* r, s=*r квадрат 2 вывести на екран наименьшее значение

program RoundLS;

uses

 Math;

var

 R, L, S: Double;

begin

 Write ('Введите радиус: ');

 ReadLn (R);

 L := 2 * Pi * R;

 S := Pi * R * R;

 if L < S then

   WriteLn ('Длина окружности = ', L :15 :5)

 else

   WriteLn ('Площадь круга = ', S :15 :5);

 ReadLn;

end.

Сначала немного теории.
--> - импликация, следование
Таблица истинности импликации

x1 x2 r
0   0  1
0  1   1
1  0   0
1  1   1
Общее правило: если x1<=x2, тогда правда, в остальных случаях ложь.
^ - Конъюнкция, логическое И
Таблица истинности конъюнкции
x1 x2 r
0   0  0
0   1 0
1   0  0
1   1  1
Общее правило: если x1 или x2 = 0, тогда ложь. x1=x2=1, только тогда правда.

(первая буква имени согласная ---> вторая буква имени согласная)^ четвертая буква имени согласная 
1) Лариса 
2) Сергей 
3) Геннадий 
4)Елена

Теперь по вариантам:
1) Лариса 
Получается (1-->0)^0=0^0=0, не подходит
2) Сергей 
(1-->0)^1=0^1=0, не подходит
3) Геннадий
(1-->0)^1=0^1=0, не подходит
4) Елена
(0-->1)^1=1^1=1, подходит
ответ: 4) Елена

Формально перевод десятичного числа D в двоичное B делается так:
Исходное число делится с остатком на 2 при этом частное запоминаем для дальнейших операций, а остаток записываем в младший бит двоичного числа. Затем частное снова делится на 2 и остаток записывается в следующий разряд И так до тех пор, пока не получится  такой результат - частное равно 0 а остаток равен 1.
Разберем пример с десятичным числом 2001
2001/2=1000  ост 1  (1й остаток младший разряд (крайний справа))
1000/2=500   ост 0
500/2=250 ост 0
250/2=125 ост 0
125/2=62 ост 1
62/2=31 ост 0
31/2=15 ост 1
15/2=7 ост 1
7/2=3 ост 1
3/2=1 ост 1
1/2=0 ост 1      (Старший разряд (крайний слева))

Теперь "Вписываем" остатки, в разряды двоичного числа, начиная с 1-го младшего:
11111010001

Т.е.


Аналогично переводим десятичное 10
10/2=5 ост 0
5/2=2 ост 1
2/2=1 ост 0
1/2=0 ост 1



И 21 десятичное
 21/2=10 ост 1
10/2=5 ост 0
5/2=2 ост 1
2/2=1 ост 0
1/2=0 ост 1


 
ИТОГО Получится этакое ЧУДО, когда все соберем



P.S. Можно проверить калькулятором. Стандарный WINDOWS калькулятор может переводить из одной системы счисления в другую.