Использую шифр цезаря зашифруйте фразы а) "семеро одного не ждут" б) "информация"

А)  "фзпзус сжрсёс рз йжцх" б)  "лрчсупгщлв"

Var                                         i,z,y,x: integer;                 // объявление переменных begin                               // начало программы writeln('введите числа: '); // вывод сообщения readln(x,y);                       //  ввод чисел х и у с клавиатуры while i < > y do                     // повторять цикл пока i не будет равно y   begin                               // вход в цикл   z: =z+x;                             // z = z + x   (при первом шаге получается 0 = 0 + х)    i: =i+1;                             // увеличиваем счетчик цикла на 1    end;                                   // выход из цикла write(z);                             // вывод z (произведение х и у) end.                                   // конец программы 

Эту легко решить при логарифмов. если при делении логарифма числа на логарифм пяти получится целое число, то искомое есть степень пятерки, а результат деления и есть показатель степени. на примере: lg(125) / lg(5) = 3.  так как 5³ = 125 lg(812) / lg(5) ≈ 4.16 поэтому 812 не явл. степенью 5-ки. print "введите число" input a s = log(a) / log(5) if s = int(s) then     print "число "; а; "является степенью числа 5"     print "показатель степени "; s else     print "число "; а; "не является степенью числа 5" end if end