Написать программу вычисления площади зеркала телескопа

Program ls112kfdkfjfj; const pi=3.14; var n,m: real; function s(r: real): real; begin      s: =pi*r*r; end; begin      write('r1=');   readln(n);   n: =s(n);       write('r2=');   readln(m);   m: =s(m);       writeln('s=',abs(n-m)); end.

Для перевода десятичного числа в шестнадцатиричное надо делить его на 16, выписывая остатки до тех пор, пока не получим в результате число, меньшее 16. затем записать этот результат и приписать к нему остатки в обратном порядке. в нашем случае результат 3 и остаток 9, поэтому получаем 39. для перехода от шестнадцатиричного числа к двоичному надо каждую его цифру записать в виде четырех двоичных разрядов (тетрады). в старшей тетраде ведущие нули можно не писать. чтобы получить восьмеричное число из двоичного, достаточно разбить его разряды справа налево на триады (т.е. по три разряда) и заменить каждую триаду соответствующей восьмеричной цифрой. тут нужно пронумеровать разряды числа справа налево, начиная с нуля, а затем на местах единиц записать числа, равные двойкам в степени, с полученным номером разряда и полученные результаты сложить здесь принцип тот же, что и в предыдущем примере, только используются степени восьми, а не двух, поскольку основание системы восемь, а не два. и нужно не просто выписывать степени восьмерки, а умножать их значения на числа, стоящие в соответствующих разрядах. нулевые разряды, если бы они были, можно также не принимать в расчет. и здесь принцип, как в предыдущем примере, только берутся степени числа 16, как основания шестнадцатиричной системы похожее мы уже делала в первом примере, когда переходили от восьмеричного числа в шестнадцатиричному. тут - наоборот. каждую восьмеричную цифру заменяем двоичной триадой, потом разбиваем полученное двоичное число справа налево на тетрады и каждую тетраду заменяем соответствующей шестнадцатиричной цифрой.