Организовать процессы шифрования и дешифровки записью семёрок символов текста в обратном порядке. если длина сообщения не кратна семи, то сообщение перед шифрованием дополнить словом «корвет» или некоторой его левой частью до получения длины, кратной семи.

Var     i,j,n: integer;     s,a,t: string; begin write('введи текст: '); readln(s);   n: =length(s);   i: =n mod 7;   if i> 0 then     begin     i: =7-i;     s: =s+copy('корвет',1,i);     n: =n+i;     end; for i: =1 to n do    begin       a: =a+s[i];     if i mod 7=0 then       begin       for j: = 7 downto 1 do         t: =t+a[j];       a: ='';       end     end; writeln(t) end.можно использовать специальную функция переворота строки. будет чуть корочеvar    i,j,n: integer;     s,a,t: string; begin write('введи текст: '); readln(s);   n: =length(s);   i: =n mod 7;   if i> 0 then    begin    i: =7-i;     s: =s+copy('корвет',1,i);     n: =n+i;     end; for i: =1 to n do    begin     a: =a+s[i];     if i mod 7=0 then       begin         t: =t+reversestring(a);       a: ='';       end     end; writeln(t)end.sub z()s = inputbox("введи текст")n = len(s)i = n mod 7if i > 0 then    i = 7 - i    s = s & mid("корвет", 1, i)    n = n + i    end iffor i = 1 to n    a = a + mid(s, i, 1)    if i mod 7 = 0 then          t = t + strreverse(a)          a = ""          end ifnext imsgbox (t)end sub

скорость автомобиля.

количество дней в месяце.

пульс человека.

остальные величины - константные, т. е. не меняются.