Составит программу, которая для символа '=' выводит предыдущий и следующий символы. в паскале.

USES CRT;
VAR x,y,z:char;

BEGIN
CLRSCR;
   x:='=';    {приравниваем переменной х значение '='}
   y:=Succ('='); {при приравниваем следующее по порядку}
   z:=Pred('='); {при приравниваем предыдущее значение}

Writeln(z,' ',x,' ',y);

READLN;END.