fork download
copy 
  1. program CaesarCipher(output);
  2.  
  3. type
  4.   Positive = 1..MaxInt;
  5.  
  6. var
  7.   Str1: packed array [1..3] of Char;
  8.   Str2: packed array [1..12] of Char;
  9.  
  10. procedure CCStr(Str: packed array [M..N: Positive] of Char);
  11. var
  12.   i: Integer;
  13. begin
  14.   for i := M to N do
  15.     Write(Chr(Ord(Str[i]) - 1));
  16.   Writeln;  
  17. end;
  18.  
  19. begin
  20.   Str1 := 'IBM';
  21.   CCStr(Str1);
  22.   Str2 := 'Hello,World.';
  23.   CCStr(Str2);
  24. end.
  25.  
Success #stdin #stdout 0s 5284KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
HAL
Gdkkn+Vnqkc-
https://ideone.com/QNMgzF
language:
Pascal (gpc 20070904)
created:
12 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!