Саша шифрует слова, заменяя букву её номером в алфавите (без пробелов номера букв даны в таблице. а — 1 ж — 8 н — 15 ф — 22 ы — 29 б — 2 з — 9 о — 16 х — 23 ь — 30 в — 3 и — 10 п — 17 ц — 24 э — 31 г — 4 й — 11 р — 18 ч — 25 ю — 32 д — 5 к — 12 с — 19 ш — 26 я — 33 е — 6 л — 13 т — 20 щ — 27 ё — 7 м — 14 у — 21 ъ — 28 некоторые шифровки можно расшифровать единственным другие — несколькими одна из сле дующих шифровок расшифровывается единственным спо собом. найдите и расшифруйте её. то, что получилось, запишите в качестве ответа. 1) 1356 2) 4110 3) 3012 4) 5131

2 шифровка ! 4110 т.к 4-й 1-а 10-и

В таком виде программа, хотя бы запустится:
program i_2;
const c=2; f=4; g=6;
var r,p: real;
begin
writeln('определение площади треугольника по теореми Герона');
write('нахождение площади');
readln(r);
p:=(c+f+g)/2;
r:=sqrt(p*(p-c)*(p-f)*(p-g))
end.

Но есть куча вопросов:
1) Если c, f, g - стороны треугольника, то что такое - r ? 
2) Если r - это площадь, то как мы можем её ввести, если мы хотим её сосчитать?
3) Где вывод полученной информации (writeln(r))?
4) Треугольника со сторонами c=2, f=4 и g=6 существовать не может

Предлагаю отказаться от экзотических обозначений и сделать проверку на существование треугольника, а также добавить получение данных по сторонам от пользователя:
program i_2;
var a,b,c,p,s: real;
begin
writeln('Определение площади треугольника по теореме Герона');
write('Введите стороны треугольника: ');
readln(a,b,c);
if (a + b <= c) or (b + c <= a) or (a + c <= b) then writeln ('Треугольника с
такими сторонами не существует')
else
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника равна ',s:0:3)
end
end.

Microsoft Word (часто — MS Word или просто Word) — текстовый процессор, предназначенный для создания, просмотра и редактирования текстовых документов, с локальным применением простейших форм таблично-матричных алгоритмов. Выпускается корпорацией Microsoft в составе пакета Microsoft Office. Первая версия была написана Ричардом Броди (Richard Brodie) для IBM PC, использующих DOS, в 1983 году. Позднее выпускались версии для Apple Macintosh (1984), SCO UNIX и Microsoft Windows (1989). Текущей версией является Microsoft Office Word 2016 для Windows и macOS.