задача. Создать 8 литерных переменных (char). Каждой из них присвоить по букве из имени
SERAFIMA
к задаче вывести слово полученное путем шифровки имени. Код шифровки - каждая буква - это следующая буква по алфавиту .

var a, b, c, d, e, f, g, h: char;begin read(a,b,c,d,e,f,g,h); write(a,b,c,d,e,f,g,h);end.

Хотя...

Если сказанно присвоить

то

var a, b, c, d, e, f, g, h: char;begin a:='S'; b:='E'; c:='R'; d:='A'; e:='F'; f:='I'; g:='M'; h:='A'; write(a,b,c,d,e,f,g,h);end.

Решение задачи в приложенном файле.Ответ TFSBGJNB(1-ая программа - шифратор. 2-ая - решение к первой части задания)