Числа из таблицы, содержащей k клеток в одной строке(из одномерного массива), необходимо переписать в таблицу, содержащую s строк по m клетки в каждой (sxm = k). Подготовить лист для определения номера строки и номера столбца, в клетке на пересечении которых должно быть записано число из клетки n исходной таблицы (значение n задаётся в отдельной ячейке). Функцию ЕСЛИ не использовать.

Математика R - это радиус
физика H - это ньютон(сила)
химия C2H5OH - это этанол(этиловый спирт)
биология днк это дезоксирибонуклеидовые кислоты сама абревиатура не лучший пример, но обозначение это или даже обозначение гена и его кодировка вполне нормальные варианты
география  55°45.1332′  37°36.9336′  координаты Москвы
если брать кодирование как код, а не как шифр, то для упрощения и одновременного уточнения, пример с географией - данная кодировка дает точно понять местоположение, на примере математики сокращенная запись, и в то же самое время абсолютно универсальная математики всех стран знают что это радиус

Для радиуса описанной окружности имеется соотношение


// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

var
  a,b,c,R,dA,dB,dC:real;
begin
  Writeln('Введите углы A,B в градусах и радиус R');
  Read(dA,dB,R);
  dC:=180-dA-dB;
  a:=2*R*sin(dA*Pi/180);
  b:=2*R*sin(dB*Pi/180);
  c:=2*R*sin(dC*Pi/180);
  Writeln('Угол C: ',dC:0:2);
  Writeln('a=',a:0:5);
  Writeln('b=',b:0:5);
  Writeln('c=',c:0:5)
end.

Пример
Введите углы A,B в градусах и радиус R
30 70 50.0
Угол C: 80.00
a=50.00000
b=93.96926
c=98.48078