Pascalabcnet ввести строку из латинских букв. ввести натуральное число. зашифровать исходную строку, сдвигая буквы на введенное количество позиций.

1.
var s1,s2:string;
i,n:integer;
begin
writeln('Введите строку:');
readln(s1);
writeln('Введите число:');
readln(n);
s2:='';
for i:=1 to length(s1) do
 s2:=s2+chr(ord(s1[i])+n);
writeln(s2);
end.

Пример:
Введите строку:
program
Введите число:
5
uwtlwfr

2.
begin
  var s:=ReadlnString('Введите строку:');
  var n:=ReadlnInteger('Введите число:');
  s.Select(c->chr(ord(c)+n)).Println;
end.

Пример:
Введите строку: program
Введите число: 5
uwtlwfr