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