Subversion Repositories svnkaklik

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.