Ответ:
program MatFormula;
uses
Math;
var
x: Double;
begin
Write ('Введите X: ');
ReadLn (x);
WriteLn ('Tg (4-x) = ', Tan (4 - x));
Write ('Введите X: ');
ReadLn (x);
WriteLn ('Корень из модуля X = ', Sqr (Abs (x)) );
ReadLn;
end.
Проще всего такой перевод делать через двоичную систему: 8 ⇒2⇒16
724301(8) = 111 010 100 011 000 001(2)
<span>11 1010 1000 1100 0001(2) = 3A8C1(16)</span>
Ну 20 строк и 5 столбцов но я не уверен на 100%