Помогите с расшифровкой Цезаря :
Расшифруйте ...фирхвдуя , и с шсусыгв тсжcзг

Запускай только с shift+F9!

А ключ должен быть у тебя...

program SHIFR_CEZERYA; uses crt; var a,b,c:string; i,j,k,d,g:integer;begin  clrscr;  writeln('Шифрование? 1-да, 0-нет');  readln(g);  writeln('Исходный текст ');  readln(a);  writeln('ключ');  readln(d);  c:='';   b:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';  for i:=1 to length(a) do   for j:=1 to length(b) do   begin   If g=1 then k:=(j+d) mod 33 else k:=(j-d)mod 33;   if a[i]=b[j] then c:=c+b[k];   If k>33 then k:=k-33 else k:=k+33;   end;  writeln(c);  readkey; end.