Найти сумму и произведение всех нечетных двухзначных чисел (алгоритм и программу)

Program z_number; uses crt; var pr,i: integer; begin clrscr; pr: =1; i: =11; {первое двузначное нечетное число} repeat pr: =pr*i; i: =i+2; until(i> 100); writeln('произведение двузначных нечетных чисел ',pr); readln; end.

в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.

а для расшифровки эти коды нужно вычитать, получаем

 

в   п   а   м   я

3   17   1 14 33

п   щ     о     я     к

17 27   16   33   17

-

3   17   1     14   33

14 10 15   19     17

м   и   н     с       к

 

н     щ     ё   п

15   27   7     17

-

3     17   1     14 

12   10   26   3

к     и     е     в

64 = 1000000

-120 = -1111000

-96 = -1100000

57 =  111001

 

вот конвертер: