Составить програму на паскале. дано натуральное число, приписать к нему такое же число!

program program1; vars: string; beginwrite('введите натуральноее число: '); readln(s); writeln('полученное число: ', s+s)end.

Шифр цезаря представляет собой шифр подстановки, в котором каждый  символ  в открытом тексте заменяется символом, находящимся на некотором постоянном числе позиций левее или правее него в  алфавите .в вашем варианте используется алфавит, исходное слово юосяыбыэ, результат дешифровки с применением сдвига шифротекста на 20 позиций правее: светофорпривожу таблицу на 20 итераций 0 юосяыбыэ 1 яптаьвью 2 арубэгэя 3 бсфвюдюа 4 втхгяеяб 5 гуцдаёав 6 дфчебжбг 7 ехшёвзвд 8 ёцщжгиге 9 жчъздйдё 10 зшыиекеж 11 ищьйёлёз 12 йъэкжмжи 13 кыюлзнзй 14 льямиоик 15 мэанйпйл 16 нюбокркм 17 оявплслн 18 пагрмтмо 19 рбдснунп 20 светофор

Const n = 5;   m = 5; var a: array[1..n,1..m] of integer; i,j,k: integer; begin //для теста заполним массив n * m сл.числами и //определяем количество нечетных   for i: =1 to n do begin       for j: =1 to m do begin           a[i,j]: =random(21)-10; write(a[i,j]: 4);           if a[i,j] mod 2< > 0 then k: =k+1;       end;       writeln;   end;   writeln('нечетных в массиве: ',k);