Как можно преобразовать текст на этапе его редактирования

По-моему, этот вопрос имеет больше отношение к линвистике, чем к информатике. тем не менее, относительно текста можно: 1. заменить слова синонимами, акронимами, и .т. п. 2. изменить стилистику текста 3. зашифровать, изменить кодировку символов 4. добавить html разметку и др. виды форматирования 5. структурировать, изменить логику высказываний 6. посчитать количество высказываний ложь / истина 7. море других опреаций из разных областей

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end. 

 

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.