Subversion Repositories svnkaklik

Rev

Go to most recent revision | Blame | Last modification | View Log | Download

program poleprg;

uses crt;

const
    size = 5;


var
   i,k, max, min, sum :integer;
   pole : array  [1..size] of integer;
   matice1 : array [1..size,1..size] of integer;
   matice2 : array [1..size,1..size] of integer;
   matice3 : array [1..size,1..size] of integer;
   prumer : real;

   ch : char;

   s : string;

begin

  randomize;

  clrscr;

  writeln(Succ('a'));
  writeln(Pred('a'));
  writeln(Ord('a'));
  writeln(Chr(100));
  writeln(length(s));


  readln(s);



  for i:=length(s) downto 1 do write('',s[i]);

  readln;

end.