Задача: определить какова длина машинной команды (в битах), если размер адресуемой памяти составляет 1 Гбайт, а число машинных команд не превышает 150, процессор - трехадресный

Var  s: string;  k: real;
begin  
write('Введите вес в килограммах ');  
Readln(k);  
Write('Во что хотите перевести (мгр, гр, Цн, Тн, КТн, МТн): ');  
Readln(s);  
case s of    
'мгр': write(k, 'кг = ', k * 1000000, ' мгр');    
'гр': write(k, 'кг = ', k * 1000, ' гр');    
'Цн': write(k, 'кг = ', k / 100, ' ц');    
'Тн': write(k, 'кг = ', k / 1000, ' Т');    
'КТн': write(k, 'кг = ', k / 1000000, ' Кт');    
'МТн': write(k, 'кг = ', k / 1000000000, ' Мт')  
Else write('Неправильно введена единица измерения');  
End;
end.

Еще Евклид указывал, что при равном периметре наибольшую площадь будет иметь квадрат. Если из 23 спичек построить квадрат, то длина его стороны должна равняться 23/4 = 5.75 спички. Но спички ломать нельзя, поэтом принимаем длину стороны равной 5 спичкам и это будет длина одной пары сторон прямоугольника.
На вторую пару сторон остается 23 - (5 х 2) = 13 спичек.
13 / 2 = 6.5 и, поскольку спички ломать нельзя, полагаем длину второй пары сторон равной 6 спичкам.
Итак, прямоугольник должен быть размером 5х6 спичек и его площадь составит 5 х 6 = 30 (квадратных... спичек).

Вот только задача эта - чисто геометрическая и к информатике не имеет никакого отношения.