Cделать программу на паскале определить значения следующих функций: chr(68) ord('d') pred(1) succ('я')

Begin
writeln(CHR(68));   // D
writeln(ORD('d'));  // 100
writeln(PRED(1));   // 0
writeln(SUCC('Я')); // а
end.